result <- gmjmcmc(y = matrix(rnorm(100), 100),
x = matrix(rnorm(600), 100),
P = 2,
transforms = c("p0", "exp_dbl"))
diagnstats <- diagn_plot(result)
Run the code above in your browser using DataLab