# \donttest{
data(spikes)
direction<-circular(spikes$direction,units="degrees")
counts<-spikes$counts
output<-kern.dpreg.circ(direction, counts, bw=c(7.41,4.47))
# Plot the data
plot(as.numeric(output$datax),output$datay,pch=16,xlab="Stimulus direction",
ylab="Spike number")
# Represent the estimated mean
points(as.numeric(output$x),exp(output$estim[[1]]),type="l",col=2,lwd=2)
# Represent the estimated dispersion
plot(as.numeric(output$x),exp(output$estim[[2]]),type="l",col=2,lwd=2,
xlab="Stimulus direction",ylab="Dispersion")
# }
Run the code above in your browser using DataLab