optim and ctmm.loglike to maximize the likelihood function of continuous-time movement models described in Fleming et al (2014) and Fleming et al (2015), given 2D animal tracking data.ctmm(tau=NULL,isotropic=FALSE,error=FALSE,...)
ctmm.fit(data,CTMM=ctmm(),control=list(),...)
ctmm.select(data,CTMM,verbose=FALSE,IC="AICc",...)telemetry object.ctmm movement-model object containing the initial parameter guesses conforming to the basic structure of the model hypothesis.optim, but with parscale overwritten with reasonable defaults.optim.TRUE, else return only the selected model."AICc" is currently supported.ctmm.fit returns the maximum likelihood ctmm movement-model object with the following components:
[object Object],[object Object],[object Object],[object Object],[object Object],[object Object],[object Object],[object Object],[object Object],[object Object]ctmm parameter guess can be the output of variogram.fit or the function ctmm(...) with the argument tau explained below and optionally isotropic=TRUE for a distribution that is symmetric in x and y.
tau is an ordered array of autocorrelation timescales.
If length(tau)==0, then an IID bi-variate Gaussian model is fit to the data.
If length(tau)==1, then an Ornstein-Uhlenbeck (OU) model (Brownian motion restricted to a finite home range) is fit the data, where tau is the position autocorrelation timescale. tau=Inf then yields Brownian motion (BM).
If length(tau)==2, then the OUF model (continuous-velocity motion restricted to a finite home range) is fit to the data, where tau[1] is again the position autocorrelation timescale and tau[2] is the velocity autocorrelation timescale. tau[1]=Inf then yields integrated Ornstein-Uhlenbeck (IOU) motion, which is a spatially unrestricted continuous-velocity process.
More models will be implemented in the future.variogram.fit, summary.ctmm, ctmm.loglike, optim.# Load package and data
library(ctmm)
data(buffalo)
cilla <- buffalo[[1]]
# Fit a continuous-velocity model with tau ~ c(10 days,1 hour)
# also see help(variogram.fit)
GUESS <- ctmm(tau=c(10*24*60^2,60^2))
FIT <- ctmm.fit(cilla,GUESS)
# some human-readable information
summary(FIT)Run the code above in your browser using DataLab