# \donttest{
# note: iter = 250 for demonstrative purposes
# data
Y <- ptsd[,1:5] + 1
# ordinal
fit <- estimate(Y, type = "ordinal",
iter = 250,
progress = FALSE)
pcor_mat(fit)
# }
Run the code above in your browser using DataLab