Compute vaccine efficacy against severe disease from Ab titre

Source: R/efficacy_nat.R

This needs the efficacy against infection because efficacy against severe disease, conditional on breakthrough infection is what safir needs, which is computed as 1 - ((1 - efficacy_disease)/(1 - efficacy_infection)).

vaccine_efficacy_severe(ab_titre, ef_infection, parameters, day)

Arguments

ab_titre

a vector of Ab titres

ef_infection

a vector of efficacy against infection from vaccine_efficacy_infection

parameters

model parameters

day

the current day

Value

a numeric vector, 0 is maximally proective, 1 is maximally unprotective