# Generate data
Data <- datagen.norm(seed = 7, n = 100, p = 10, rho = 0, beta_vec = c(1,0.5,0,0.5,0,0,0,0,0,0))
X <- Data$X
y <- Data$y
# Select model
fit_specified_size_subset_linear_models(y, X, size = 9, intercept=FALSE)
Run the code above in your browser using DataLab