R/objective.R

Defines functions objective.funct

objective.funct <- function(x,L,gammas,bag) {
  a.weights <- adjusted.weights(x,gammas,bag)
  sum(unlist(Map('*',bag$weights,a.weights)))-L
}
WarrRich/LCMBounds documentation built on June 29, 2023, 1:29 p.m.