if (FALSE) {
  myModel <- readModels("BayesModel_WithGH5MCMC.out")
  mplus.traceplot(myModel, rows=2, cols=3)
  #alternative using the coda package
  library(coda)
  plot(myModel$bparameters$valid_draw)
}
Run the code above in your browser using DataLab