# \donttest{
data("jz2017")
set.seed(12345)
res <- ssm_analyze(
jz2017[1:200, ],
scales = c("PA", "BC", "DE", "FG", "HI", "JK", "LM", "NO"),
boots = 100
)
set.seed(23456)
acc <- ssm_ci_accuracy(res, reps = 25)
plot(acc)
# }
Run the code above in your browser using DataLab