data(mcmcListExample)
mco <- mcmcOutput(mcmcListExample)
mco
new1 <- window(mco, start=201) # Discard the first 200 draws in each chain
new1 # Now only 800 per chain.
new2 <- window(mco, thin=3) # Retain only 1/3 of the draws
new2 # new2 is smaller; each chain reduced from 1000 to 333, total draws 999.
Run the code above in your browser using DataLab