Visualise diseasy modules.
Examples
immunity <- DiseasyImmunity$new()
plot(immunity)
immunity$set_exponential_waning(target = "hospitalisation")
#> $hospitalisation
#> function (t)
#> exp(-t/time_scale)
#> <environment: 0x55ec9ac98560>
#> attr(,"name")
#> [1] "exponential_waning"
#> attr(,"dots")
#> attr(,"dots")$time_scale
#> [1] 20
#>
#>
plot(immunity)
rm(immunity)
