R语言里求二分类的log-loss

自己写一个咯

LogLoss <- function(actual, predicted){
  result=-1/length(actual)*(sum((actual*log(predicted)+(1-actual)*log(1-predicted))))
  return(result)
}

需要Metrics这个library

> library(Metrics)
> logLoss(y_true, y_pred)