# NOT RUN {
# 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)
GUESS <- ctmm(tau=c(10*24*60^2,60^2))
FIT <- ctmm.fit(cilla,GUESS)
# Compute akde object
UD <- akde(cilla,FIT)
# Plot data with AKDE contours
plot(cilla,UD=UD)
# }
Run the code above in your browser using DataLab