# NOT RUN {
set.seed(123.456)
Data_sim<-Gen_Data(n= 200, p =1000, correlation="AR",family = "gaussian")
fit<-SMLE(Data_sim$Y,Data_sim$X, family = "gaussian")
E<-smle_select(fit)
p<-smle_predict(E,type = "link")
# }
Run the code above in your browser using DataLab