Daedalus features in development

library(daedalus)

This vignette is intended as a visual check on daedalus features in development.

output <- daedalus2("GBR", "influenza_2009")

plot(colSums(output$S))

plot(colSums(output$E))

plot(colSums(output$Is))

plot(colSums(output$Ia))

plot(colSums(output$H))

plot(colSums(output$R))

plot(colSums(output$D))

This should be a curve and not monotonically increasing.

plot(colSums(output$new_inf))

plot(colSums(output$new_hosp))