R/costCategorical.R

Defines functions costCategorical

costCategorical <- function(Y, Y_hat, weight=NULL){
  if(is.null(weight)){
    mean(devianceCategorical(Y, Y_hat))
  } else{
    weightedMean(devianceCategorical(Y, Y_hat), weight)
  }
}
EdwinGraham/EdNet documentation built on May 6, 2019, 12:22 p.m.