# \dontshow{
set.seed(3,kind="Mersenne-Twister",normal.kind="Inversion")
# }
if (FALSE) {
# Extract data and crawl inputs from miExample
obsData <- miExample$obsData
# error ellipse model
err.model <- list(x= ~ ln.sd.x - 1, y = ~ ln.sd.y - 1, rho = ~ error.corr)
# Fit crawl to obsData
crwOut <- crawlWrap(obsData,theta=c(4,0),fixPar=c(1,1,NA,NA),
err.model=err.model)
# Fit four imputations
bPar <- miExample$bPar
HMMfits <- MIfitHMM(crwOut,nSims=4,poolEstimates=FALSE,
nbStates=2,dist=list(step="gamma",angle="vm"),
Par0=bPar$Par,beta0=bPar$beta,
formula=~cov1+cos(cov2),
estAngleMean=list(angle=TRUE),
covNames=c("cov1","cov2"))
# Pool estimates
miSum <- MIpool(HMMfits)
print(miSum)
}
Run the code above in your browser using DataLab