#Load package and data
library(ctmm)
data(buffalo)
#Extract movement data for a single animal
cilla <- buffalo[[1]]
#Calculate likelihood of ~10 day range crossing time with discontinuous velocity
ctmm.loglike(cilla,ctmm(tau=10*24*60*60),verbose=TRUE)
Run the code above in your browser using DataLab