### Example
n <- 100; p <- 100;i <- 1
s0 <- 5 # First five components are nonzeros
rho <- 1; tau <- 1;
dat1 <- gendata_Mean(n, p, s0, seed=i, rho, tau)
# ex1: H01 is false
MeanMax(dat1$X, 1:p)
MeanMax(dat1$X, 1:p, Nsplit=1)
# ex1: H01 is true
MeanMax(dat1$X, p)
MeanMax(dat1$X, p, Nsplit=1)
Run the code above in your browser using DataLab