# NOT RUN {
samples1 <- cbind(rnorm(1000, 1), rgamma(1000, 1), rpois(1000, 1))
colnames(samples1) <- c('alpha', 'beta', 'gamma')
samples2 <- cbind(rnorm(1000, 2), rgamma(1000, 2), rpois(1000, 2))
colnames(samples2) <- c('alpha', 'beta', 'gamma')
samplesList <- list(chain1 = samples1, chain2 = samples2)
chainsPlot(samplesList)
chainsPlot(samplesList, densityplot = FALSE, burnin = 500)
chainsPlot(samplesList, traceplot = FALSE, legend.location = 'topleft', cex = 0.7)
# }
Run the code above in your browser using DataLab