Machine Learning, Lda, Dimensionality Reduction, Neural Networks, Towards Data Science.
nn.results$net.result, c(1), function( x ){ which( x == max( x ) ) } ) predictions = c( "opel", "van", "bus")[idx] # Confusion Matrix library( caret ) t = table( predictions, test$class ) print( confusionMatrix( t ) ) ## Confusion Matrix and Statistics ## ## ## predictions bus opel van ## bus 84 3