# Load package and data
library(ctmm)
data(buffalo)
cilla <- buffalo[[1]]
# Fit a continuous-velocity model with tau ~ c(10 days, 1 hour)
# see help(variogram.fit)
m2 <- ctmm(tau=c(10*24*60^2,60^2))
M2 <- ctmm.fit(cilla,m2)
# Compute akde object
KD2 <- akde(cilla,M2)
# Plot data with AKDE contours
plot(cilla,AKDE=KD2)
Run the code above in your browser using DataLab