#Matrix input
data(BCItime)
tm <- 2*pi*BCItime$time[BCItime$species=="paca"]
xx <- seq(0,2*pi, pi/256)
rn <- rvmkern(100, cbind(xx, dvmkern(xx, tm)))
#actmod input
fit <- fitact(tm, sample="n")
rvmkern(100,fit)
Run the code above in your browser using DataLab