# Set up MCMC option in order to have a burn-in of 10000 iterations and
# then take every other iteration up to a collection of 10000 samples
options <- McmcOptions(burnin=10000,
step=2,
samples=10000)
sampleSize(options)
saveSample(iteration=5,
mcmcOptions=options)
Run the code above in your browser using DataLab