diff --git a/episodes/model-choices.Rmd b/episodes/model-choices.Rmd index 29139e0..1b94b74 100644 --- a/episodes/model-choices.Rmd +++ b/episodes/model-choices.Rmd @@ -338,8 +338,8 @@ output <- model_ebola( replicates = 1 # replicates argument ) -output %>% - filter(compartment == "infectious") %>% +output %>% + filter(compartment == "infectious") %>% ggplot() + geom_line( aes(time, value), @@ -374,7 +374,7 @@ output_replicates <- model_ebola( replicates = 100 # replicates argument ) -output_replicates %>% +output_replicates %>% filter(compartment == "infectious") %>% ggplot( aes(time, value)