#about 200 seconds
## Not run: 
#   data(prostate)
#   X <- as.matrix.data.frame(prostate[,-9])
#   y <- prostate[,9]
#   system.time(m<-regal(X, y, MaxIter=1000, d=10, NCores=8, verboseQ=TRUE))[3]
#   ind <- rev(order(m[,6]))
#   dotchart(m[ind,6], pch=19, cex=0.5, bg=rgb(1,1,0,0.4),
#        color="blue", main="CPU times")
# ## End(Not run)
Run the code above in your browser using DataLab