# NOT RUN {
set.seed(12345)
## Generate 5X2 random sample matrix from PSVII(s=3) ##
PSVII(n=5, p=2, s=3)
## Power calculation against bivariate (p=2) PSVII(s=3) distribution ##
## at sample size n=50 at one-sided alpha = 0.05 ##
# Zhou-Shao's test #
power.mvnTest(a = 0.05, n = 50, p = 2, B = 100, FUN = PSVII, s = 3)
# }
Run the code above in your browser using DataLab