R/obj_value.R

Defines functions obj_value

obj_value <- function(theta, y, x) {
  eta <- x %*% theta
  p <- exp(eta)
  p[p >= 1] <- 1 - 1e-5
  sum(y * eta + (1 - y) * log(1 - p))
}

Try the BSW package in your browser

Any scripts or data that you put into this service are public.

BSW documentation built on Nov. 5, 2025, 6:26 p.m.