# NOT RUN {
## Bivariate Normal with mean (mu1, mu2) and covariance sigma
n <- 1e3
mu <- c(2, 50)
sigma <- matrix(c(1, 0.5, 0.5, 1), nrow = 2)
out <- BVN_Gibbs(n, mu, sigma)
mcerror <- mcse.multi(out, blather = TRUE)
## Plotting the ellipse
plot(confRegion(mcerror), type = 'l')
# }
Run the code above in your browser using DataLab