#attach the data
data(rase_data, package = 'rase')
## Not run:
# # 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')
# ## End(Not run)
Run the code above in your browser using DataLab