# \donttest{
### Example
n <- 50; p <- 20; i <- 1
s0 <- 5 # First five components are nonzeros
rho <- 1;
dat1 <- gendata_Reg(n, p, s0, seed=i, rho)
# ex1: H01 is false
RegMax(dat1$X, dat1$Y, 1:p)
# ex1: H01 is true
RegMax(dat1$X, dat1$Y, p)
# }
Run the code above in your browser using DataLab