sim.dir <- file.path(find.package("bayesTFR"), "ex-data", "bayesTFR.output")
m <- get.tfr.mcmc(sim.dir)
tfr.values <- get.tfr.parameter.traces(m$mcmc.list, burnin=10, par.names="sigma0")
if (FALSE) {
hist(tfr.values, main=colnames(tfr.values))
}
tfr.values.cs <- get.tfr.parameter.traces.cs(m$mcmc.list,
get.country.object("Canada", meta=m$meta),
burnin=10, par.names="Triangle_c4")
if (FALSE) {
hist(tfr.values.cs, main=colnames(tfr.values.cs))
}
Run the code above in your browser using DataLab