# NOT RUN {
x <- cbind(data.matrix(iris[1:4]))
w <- nrbmL1(rocLoss(x,iris$Species=="versicolor"),LAMBDA=0.01)
plot(roc.stat(x %*% w,iris$Species=="versicolor"))
lines(roc.stat(-x[,2],iris$Species=="versicolor"),col="blue")
# }
Run the code above in your browser using DataLab