fix issue with corrected emergence graphs

#3
inbo · Jun 10, 2020 · 58d45de · 58d45de
1 parent c4b32d5
commit 58d45de
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R-scripts/all_species_dashboard.Rmd b/R-scripts/all_species_dashboard.Rmd
@@ -485,7 +485,8 @@ renderPlot({
   if(nrow(df_key) > 0){
     gam_occupancy_cor <- tryCatch(apply_gam(
       df = df_key,
-      y_var = "c_ncells",
+      y_var = "ncells",
+      baseline_var = "c_ncells",
       eval_years = max(df_key$year),
       type_indicator = "occupancy",
       verbose = TRUE,
@@ -590,7 +591,8 @@ renderPlot({
   if(nrow(df_key) > 0){
     gam_observations_cor <- tryCatch(apply_gam(
       df = df_key,
-      y_var = "cobs",
+      y_var = "obs",
+      baseline_var = "cobs",
       eval_years = max(df_key$year),
       type_indicator = "observations",
       verbose = TRUE,