B <- 10000
k <- 4
n2 <- 60
n1_by_n2 <- 2
n1 <- n1_by_n2 * n2
mu1 <- rep(0,k)
del <- 0.4
mu2 <- mu1 + rep(del, k) # rep(0.19,k) # 0.23 (0.9), 0.18 (0.7) 0.20 (0.8)
sig1 <- diag(k)
sig2 <- sig1
cutoff <- seq(0,30, length.out=20)
the_cdf <- round(pHotellingT(cutoff, n1+n2, mu1 - mu2,
sig1, sig2, alloc.ratio=c(2,1),
lower.tail=FALSE, nsim = 1e4),3)
Run the code above in your browser using DataLab