powered by
MultiLogLoss(y_true, y_pred)
data(iris) svm.model <- e1071::svm(Species~., data=iris, probability=TRUE) pred <- predict(svm.model, iris, probability=TRUE) MultiLogLoss(y_true=iris$Species, y_pred=attr(pred, "probabilities"))
Run the code above in your browser using DataLab