This function constructs a sparsity vs. selection criterion curve for a selection object.
When EBIC is used with voting, it also constructs a histogram showing the voting result.
# NOT RUN {Data<-Gen_Data(correlation="MA",family = "gaussian")
fit<-SMLE(Data$Y,Data$X,k=20,family = "gaussian")
E<-smle_select(fit)
#Then E is a object of "selection"plot(E)
# }