R/survFunc.R

In VEwaningVariant: Vaccine Efficacy Over Time - Variant Aware

#' @import survival
.survFunc <- function(object, newdata) {

  return( exp(x = -predict(object = object,
                           newdata = newdata,
                           type = "expected")) )
}