if (FALSE) {
# extract simulated obsData from example data
obsData <- miExample$obsData
# error ellipse model
err.model <- list(x= ~ ln.sd.x - 1, y = ~ ln.sd.y - 1, rho = ~ error.corr)
# Fit crwMLE models to obsData and predict locations
# at default intervals for both individuals
crwOut <- crawlWrap(obsData=obsData,
theta=c(4,0),fixPar=c(1,1,NA,NA),
err.model=err.model,attempts=100)
# create data frame with fake data stream
data <- data.frame(ID=rep(factor(c(1,2)),times=c(753,652)),
time=c(1:753,1:652),
fake=rpois(753+652,5))
# merge fake data stream with crwOut
crwOut <- crawlMerge(crwOut,data,"time")
}
Run the code above in your browser using DataLab