#attach the data
data(rase_data, package = 'rase')
# Explore the data
str(mcmc)
# discard the first 200 iterations as burnin
#and keep every 10th iteration.
gg_dat <- post.mcmc(mcmc, burnin=200, thin = 10, as.ggmcmc = TRUE)
# density using ggmcmc for dispersal rates (sigma).
require(ggmcmc)
ggs_density(gg_dat, family = 'sigma')Run the code above in your browser using DataLab