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