#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