Hi Chris,
I have an example here where ctmm.select is selecting BM as the best model when it's clearly (I think) IOU motion. What do you think is happening here? Thanks so much in advance!! Robin
library(sf)
library(ctmm)
load("huh.sf.rda")
load("huh.rda")
###########################
#define projection
TPEQD<-"+proj=tpeqd +lat_1=64.2 +lon_1=-112.5 +lat_2=65.8 +lon_2=-111.04 +x_0=0 +y_0=0 +datum=WGS84 +units=m +no_defs"
###########################
#function to coerce data into ctmm trajectory
prepare_ctmm_data<-function(x){
#convert to movestack
DATA<-move(x=x$longitude,y=x$latitude,
time=as.POSIXct(x$observationDate, format="%Y-%m-%d %H:%M:%OS", tz="UTC"),
proj=CRS("+proj=longlat"))
#convert to ctmm telemetry object
DATA.trj<-as.telemetry(DATA,timeformat = "auto",timezone="UTC", projection=TPEQD)
return(DATA.trj)
}
###########################
#Plot huh.sf
#I think obviously not BM, definitely IOU
plot(huh.sf)
#Run ctmm fit
Data.trj<-prepare_ctmm_data(huh)
variogram<-variogram(Data.trj)
plot(variogram)
guess<-ctmm.guess(Data.trj,CTMM=ctmm(error=FALSE,range = FALSE),interactive=FALSE)
summary(guess)
fit<-ctmm.select(Data.trj,guess,verbose=T,trace=2)
summary(fit)