# \donttest{
# note: iter = 250 for demonstrative purposes
# data
Y <- ptsd[,1:5]
#########################
###### continuous #######
#########################
fit <- estimate(Y, iter = 250,
progress = FALSE)
# print names first
convergence(fit, print_names = TRUE)
# trace plots
convergence(fit, type = "trace",
param = c("B1--B2", "B1--B3"))[[1]]
# acf plots
convergence(fit, type = "acf",
param = c("B1--B2", "B1--B3"))[[1]]
# }
Run the code above in your browser using DataLab