From 9142c585440e632397ad07d83e38ec089b351f8e Mon Sep 17 00:00:00 2001
From: RJSheppard <rjs11@ic.ac.uk>
Date: Wed, 26 Jun 2024 10:13:32 +0100
Subject: [PATCH] Corrected age output names in Demography vignette to enable
 it to run (e.g., n_age... rather than n_...)

---
 vignettes/Demography.Rmd | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/vignettes/Demography.Rmd b/vignettes/Demography.Rmd
index bb439836..9de15d9c 100644
--- a/vignettes/Demography.Rmd
+++ b/vignettes/Demography.Rmd
@@ -124,7 +124,7 @@ convert_to_long <- function(age_min, age_max, output) {
       data.frame(
         age_lower = age_min[[i]],
         age_upper = age_max[[i]],
-        n = output[,paste0('n_', age_min[[i]], '_',age_max[[i]])],
+        n = output[,paste0('n_age_', age_min[[i]], '_',age_max[[i]])],
         age_plot = age_min[[i]]/365,
         run = output$run,
         timestep = output$timestep)