# NOT RUN {
syn_data <- synthetic_data(n=100,p=200,s0=5,error_std=2)
# syn_data$X is an n by p design matrix
dim(syn_data$X)
# syn_data$y is a length n response vector
length(syn_data$y)
# syn_data$true_beta is a length n response vector with only the first s0 entries non-zero
all(syn_data$true_beta[1:5]!=0)
all(syn_data$true_beta[-c(1:5)]==0)
# }
Run the code above in your browser using DataLab