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