# Posterior distribution of the mu and sigma parameters of the AR(1) process for
# the Nile time series.
set.seed(12345)
samp.sim1 <- inferf(Nile, 500)
samp.sim2 <- infermsfmetrop(samp.sim1, Nile)
hist(samp.sim2[,1], breaks = 20, main = expression(paste("Histogram of ",mu)),
xlab = expression(paste(mu)))
hist(sqrt(samp.sim2[,2]), breaks = 20,
main = expression(paste("Histogram of ",sigma)),
xlab = expression(paste(sigma)))
Run the code above in your browser using DataLab