sim.dir <- file.path(.find.package("bayesTFR"), "ex-data", 'bayesTFR.output')
mcmc.set <- get.tfr.mcmc(sim.dir=sim.dir)
get.total.iterations(mcmc.set$mcmc.list) # 150=3x50
get.total.iterations(mcmc.set$mcmc.list, burnin=25) # 75=3x(50-25)
sim.dir <- tempfile()
m <- run.tfr.mcmc(iter=10, nr.chains=2, output.dir=sim.dir, thin=5, verbose=TRUE)
get.total.iterations(m$mcmc.list) # 20=2x10
get.stored.mcmc.length(m$mcmc.list) # 6=2x3
unlink(sim.dir, recursive=TRUE)Run the code above in your browser using DataLab