sim.dir <- file.path(find.package("bayesLife"), "ex-data", "bayesLife.output")
m <- get.e0.mcmc(sim.dir)
e0.values <- get.e0.parameter.traces(m$mcmc.list, burnin = 10, par.names = "z")
hist(e0.values, main = colnames(e0.values))
e0.values.cs <- get.e0.parameter.traces.cs(m$mcmc.list,
get.country.object("Canada", meta = m$meta),
burnin = 10, par.names = "z.c")
hist(e0.values.cs, main = colnames(e0.values.cs))
Run the code above in your browser using DataLab