X<-matrix(rnorm(100*100), 100, 100) # 100-by-100 design matrix
y<-apply(X[,1:5], 1, sum)+rnorm(100) # first five variables are significant
tilt<-tilting(X, y, op=2)
tilt$active.hat # returns the finally selected variables
Run the code above in your browser using DataLab