# NOT RUN {
set.seed(123.456)
#Generate correlated data
Data<-Gen_Data(correlation="MA",family = "gaussian")
print(Data)
# joint feature screening via SMLE
fit<-SMLE(Data$Y,Data$X,k=10,family = "gaussian")
print(fit)
plot(fit)
#Are there any features missed after screening?
setdiff(Data$index, fit$Retained_Feature_IDs)
# Elaborative selection after screening
E<-smle_select(fit,gamma_ebic = 0.5,vote = FALSE)
#Are there any features missed after selection?
setdiff( Data$index ,E$Retained_Feature_IDs)
print(E)
plot(E)
# }
Run the code above in your browser using DataLab