# 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
# create crwData object
crwOut <- crawlWrap(obsData=obsData,ncores=1,
theta=c(4,0),fixPar=c(1,1,NA,NA),
initial.state=inits,
err.model=err.model)
plot(crwOut,compact=TRUE,ask=FALSE,plotEllipse=FALSE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab