# SEIR Connected model
seirconn <- ModelSEIRCONN(
name = "Disease",
n = 10000,
prevalence = 0.1,
contact_rate = 2.0,
transmission_rate = 0.8,
incubation_days = 7.0,
recovery_rate = 0.3
)
# Running the simulation for 50 steps (days)
set.seed(937)
run(seirconn, 50)
# Retrieving date, state, and counts dataframe including any added tools
get_hist_tool(seirconn)
# Retrieving overall date, state, and counts dataframe
head(get_hist_total(seirconn))
# Retrieving date, state, and counts dataframe by variant
head(get_hist_virus(seirconn))
# Snapshot of totals at end of simulation
get_today_total(seirconn)
Run the code above in your browser using DataLab