# NOT RUN {
# extract simulated obsData from example data
obsData <- miExample$obsData
# extract crwMLE inputs from example data
inits <- miExample$inits # initial state
err.model <- miExample$err.model # error ellipse model
# Fit crwMLE models to obsData and predict locations
# at default intervals for both individuals
crwOut <- crawlWrap(obsData=obsData,ncores=1,
theta=c(4,0),fixPar=c(1,1,NA,NA),
initial.state=inits,
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