data(regmod)
mcmcapply(regmod, mean)
mcmcapply(regmod, sd)
x <- stack(regmod)
head(x)
summary(x)
library(lattice)
xyplot(value ~ iter | variable, data=x,
type="l", scales = "free", groups=chain)
Run the code above in your browser using DataLab