R/loss.r

Defines functions loss_exponential2 loss_exponential

loss_exponential <- function(w, x, y) {
  z <- y * x
  loss_exponential2(w, z)
}

loss_exponential2 <- function(w, z) {
  mean(exp(-z %*% w))
}
zamorarr/sparseglm documentation built on April 12, 2022, 3:38 a.m.