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