# NOT RUN {
n <- 100
Sigma <- toeplitz(1/(1:n))
mu <- rep(1, n)
thr <- 500
Qapprox_nc(thr, mu, Sigma, method="SW")
Qapprox_nc(thr, mu, Sigma, method="LTZ4")
Qapprox_nc(thr, mu, Sigma, method="MR")
# }
Run the code above in your browser using DataLab