R/examples/calc_wait_time.R

load("./output/TSIR_sim_flu_high.Rdata")

x1 <- sim$B$wait.time
x2 <- sim$R$wait.time

agg1 <- calc.wait.time(x1)
agg2 <- calc.wait.time(x2)

plot(agg1[1,], type='l', col='blue', cex=2)
lines(agg2[1,], col='red', cex=2)
gilesjohnr/hmob documentation built on Aug. 8, 2020, 1:26 a.m.