Fix long lines

epiverse-trace · Jan 29, 2024 · 315b582 · 315b582
1 parent e52ec12
commit 315b582
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/episodes/model-choices.Rmd b/episodes/model-choices.Rmd
@@ -374,7 +374,10 @@ output_samples <- Map(
 
 output_samples <- bind_rows(output_samples) # requires the tidyverse package
 
-ggplot(output_samples[output_samples$compartment == "infectious", ], aes(time, value)) +
+ggplot(
+  output_samples[output_samples$compartment == "infectious", ],
+  aes(time, value)
+) +
   stat_summary(geom = "line", fun = mean) +
   stat_summary(
     geom = "ribbon",

diff --git a/episodes/simulating-transmission.Rmd b/episodes/simulating-transmission.Rmd
@@ -516,7 +516,10 @@ output_samples <- bind_rows(output_samples)
 3. Calculate the mean and 95% quantiles of number of infectious individuals across each model simulation and visualise output
 
 ```{r  plot, fig.width = 10}
-ggplot(output_samples[output_samples$compartment == "infectious", ], aes(time, value)) +
+ggplot(
+  output_samples[output_samples$compartment == "infectious", ],
+  aes(time, value)
+) +
   stat_summary(geom = "line", fun = mean) +
   stat_summary(
     geom = "ribbon",