# \donttest{
# note: iter = 250 for demonstrative purposes
# data
Y <- ptsd[,1:4]
##########################
### example 1: ordinal ###
##########################
# fit model (note + 1, due to zeros)
fit <- explore(Y + 1,
type = "ordinal",
iter = 250,
progress = FALSE,
seed = 1234)
# summarize the partial correlations
reg <- coef(fit, progress = FALSE)
# summary
summ <- summary(reg)
summ
# }
Run the code above in your browser using DataLab