# NOT RUN {
Y <- ptsd[,1:5]
fit <- explore(Y, iter = 250,
progress = FALSE)
r2 <- predictability(fit, iter = 250,
progress = FALSE)
summary(r2)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab