powered by
mvn.ub(X)
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