sim.dir <- file.path(.find.package("bayesTFR"), "ex-data", 'bayesTFR.output')
m <- get.tfr.mcmc(sim.dir)
# MCMC created when generating predictions using:
# tfr.predict(m, burnin=30)
mb <- get.thinned.tfr.mcmc(m, thin=1, burnin=30)
summary(mb, meta.only=TRUE) # length 60 = 3chains x (50-30)iters.Run the code above in your browser using DataLab