R/costNormal.R

Defines functions costNormal

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