which.is.max(x)
max.col
which.max
pred <- predict(nnet, test) table(true, apply(pred,1,which.is.max))
Run the code above in your browser using DataLab