# NOT RUN {
## generate data from multivariate normal with trivial covariance.
data = matrix(rnorm(100*5), nrow=100)
## run test
DiagTest1(data, method="Cai11")
DiagTest1(data, method="Lan15")
DiagTest1(data, method="mxPBF")
DiagTest1(data, method="mxPBF", a0=5.0, b0=5.0) # change hyperparameters for mxPBF
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab