sim.dir <- file.path(.find.package("bayesTFR"), "ex-data", 'bayesTFR.output')
# loads traces from one chain
m <- get.tfr.mcmc(sim.dir, low.memory=FALSE, burnin=25, chain.ids=1)
# should have 25 rows, since 50 iterations in total minus 25 burnin
dim(tfr.mcmc(m, 1)$traces)
summary(m, chain.id=1)Run the code above in your browser using DataLab