# \donttest{
# load the included parameterized model
data(truemodel)
# realize the model
occurrences <- predict(truemodel, nrepetitions=1)
# fit the model without species interactions
fitted <- eicm(occurrences, n.latent=2, mask.sp=0, do.selection=FALSE)$fitted.model
# compute confidence intervals for all parameters
# this updates the fitted model with the confints
fitted <- confint(fitted, ncores=2)
# plot the confidence intervals
plot(fitted, type="confint")
# }
Run the code above in your browser using DataLab