R/costTweedie.R

Defines functions costTweedie

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