# NOT RUN {
# -- Load the data
x <- cbind(intercept=100,data.matrix(iris[1:4]))
y <- model.matrix(~iris$Species+0)
w <- nrbm(softmaxLoss(x,y))
P <- predict(w,x)
table(max.col(P),iris$Species)
# }
Run the code above in your browser using DataLab