## 500 variables, hence 500 univariate regressions are to be fitted
x = matrix( rnorm(100 * 500), ncol = 500 )
x = as.data.frame(x)
## 100 observations in total
y = rnorm(100) ## binary logistic regression
system.time( a1 <- regression(x, y) )
Run the code above in your browser using DataLab