# NOT RUN {
sim.dir <- file.path(find.package("bayesTFR"), "ex-data", "bayesTFR.output")
m <- get.tfr.mcmc(sim.dir)
summary(m)
# summary of the single chains
for(mc in tfr.mcmc.list(m)) print(summary(mc))
# }
Run the code above in your browser using DataLab