# NOT RUN {
data(BCIspeed)
i <- BCIspeed$species=="ocelot"
sp <- log(BCIspeed$speed[i])
tm <- BCIspeed$time[i]*2*pi
circseq <- seq(0,2*pi,pi/256)
trend <- lincircKern(circseq, tm, sp)
plot(circseq, trend, type="l")
# }
Run the code above in your browser using DataLab