sim.dir <- file.path(.find.package("bayesTFR"), "ex-data", 'bayesTFR.output')
cov.gammas <- get.cov.gammas(sim.dir=sim.dir, burnin=0)
m <- run.tfr.mcmc(nr.chains=1, iter=10, proposal_cov_gammas=cov.gammas,
verbose=TRUE)Run the code above in your browser using DataLab