# NOT RUN {
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")
# }
# NOT RUN {
hist(tfr.values, main=colnames(tfr.values))
# }
# NOT RUN {
tfr.values.cs <- get.tfr.parameter.traces.cs(m$mcmc.list,
get.country.object("Canada", meta=m$meta),
burnin=10, par.names="Triangle_c4")
# }
# NOT RUN {
hist(tfr.values.cs, main=colnames(tfr.values.cs))
# }
Run the code above in your browser using DataLab