Fix summary_plot error

R/summary_plot.R

@@ -57,7 +57,7 @@ summary_plot <- function(pop_dynamic, lower_zero = FALSE) {
   )
 
   tmp_df <- c("abundance","depletion","birthrate","productivity") %>%
-    lapply(function(x)getElement(hp,x)) %>%
+    lapply(function(x)getElement(pop_dynamic,x)) %>%
     do.call(cbind, .) %>%
     as.data.frame() %>%
     mutate(time = 1:n()) %>%