## Not run:
# ## load MCMC simulation
# fsave <- paste(tempdir(),"/simultest1",fileext = ".sav", sep="")
# load(fsave)
# post.simul.hist(out=out, vreg=2)
# post.simul.hist(out=out, vreg=4)
# ## End(Not run)
Run the code above in your browser using DataLab