# NOT RUN {
# Under H0
library(MASS)
data_H0<-mvrnorm(n = 20,mu = rep(0,30),Sigma = diag(30))
Dnp_Test(data_H0)
# Under H1
library(MASS)
data_H1<-mvrnorm(n = 20,mu = rep(0,30),Sigma = (diag(30)+1))
Dnp_Test(data_H1)
# }
Run the code above in your browser using DataLab