# NOT RUN {
Sigma <- matrix(c(100, 0.99*sqrt(100*100),
0.99*sqrt(100*100), 100),
nrow=2)
X <- mvrnorm(1000, c(100, 100), Sigma)
result <- mvn.ub(X)
# }
Run the code above in your browser using DataLab