Impute Recovered counts for the SIR model

# S3 method for data.frame
cases_to_SIR(data, par, method = "chain-binomial")

Arguments

data	data frame with the following columns t time confirmed number of cumulative confirmed cases at time t in the group N population size, which is used as the number of susceptible (minus the initial infections)
par	named vector of parameters
method	Currently default is "chain-binomial". See details. More methods to come.

Value

the input data with the additional columns

number of susceptible

number of infectious

number of recovered

Examples

  df <- data.frame(t = 0:4,
                    confirmed = c(0, 1, 3, 9, 9),
                    N = 10)
   out <- cases_to_SIR(data = df,
                       par = 1)