# \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 likelihood profiles for all parameters
fitted <- profile(fitted, ncores=2)
# plot the first 9 profiles
par(mfrow=c(3, 3))
dummy <- lapply(fitted$profile[1:9], plot)
# }
Run the code above in your browser using DataLab