# \donttest{
Y <- ptsd
fit <- estimate(as.matrix(Y), iter = 150, type = "mixed")
pred <- posterior_predict(fit, iter = 100)
prob <- predicted_probability(pred,
Y = Y,
outcome = "B3",
B4 = 0,
B5 = 0)
# }
Run the code above in your browser using DataLab