#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
MODEL <- ctmm(tau=10*24*60*60)
ctmm.loglike(cilla,MODEL,verbose=TRUE)
Run the code above in your browser using DataLab