## generating training data
x = rbind(0.5+matrix(rnorm(100),50,2),-0.5+matrix(rnorm(100),50,2))
x = cbind(x,matrix(rnorm(7800),100,78))
## generating labels
y = c(rep(1,50),rep(-1,50))
## fast screening
idx = fastscr(x,y,nscr = 10)
## Training
## fit = spam(x[,idx],y,k=4)
Run the code above in your browser using DataLab