d <- 15; nu <- 30;
l <- rep(2, d); u <- rep(Inf, d);
Sig <- 0.5 * matrix(1, d, d) + 0.5 * diag(1, d);
est <- mvTcdf(l, u, Sig, nu, n = 1e4)
# mvtnorm::pmvt(lower = l, upper = u, df = nu, sigma = Sig)
if (FALSE) {
d <- 5
Sig <- solve(0.5*diag(d)+matrix(0.5, d,d))
# mvtnorm::pmvt(lower = rep(-1,d), upper = rep(Inf, d), df = 10, sigma = Sig)[1]
mvTcdf(rep(-1, d), u = rep(Inf, d), Sig = Sig, df = 10, n=1e4)$prob
}
Run the code above in your browser using DataLab