# \donttest{
### Example
n <- 100; 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
RegMin(dat1$X, dat1$Y, 1:s0)
# ex1: H01 is true
RegMin(dat1$X, dat1$Y, p)
# }
Run the code above in your browser using DataLab