model_sirdconn <- ModelSIRDCONN(
name = "COVID-19",
n = 100000,
prevalence = 0.01,
contact_rate = 5,
transmission_rate = 0.4,
recovery_rate = 0.5,
death_rate = 0.1
)
# Running and printing
run(model_sirdconn, ndays = 100, seed = 1912)
model_sirdconn
plot(model_sirdconn, main = "SIRDCONN Model")
Run the code above in your browser using DataLab