Implements [F_pr] for the SIR model.

# S3 method for SIR
F_pr(vars, Xpar)

Arguments

vars

a list with the variables attached by name

Xpar

a list defining a model for human

Value

a [numeric] vector of length `nStrata`