diff --git a/src/model_fitting/abundance_model.R b/src/model_fitting/abundance_model.R index 374ae38ffe1164fa1abadf0a974e402f3b1ae544..638331c9ccd95a1f7ad37457237831d872c79d78 100644 --- a/src/model_fitting/abundance_model.R +++ b/src/model_fitting/abundance_model.R @@ -125,9 +125,9 @@ options("scipen" = 100, "digits" = 4) if (is.na(exclude_year) & is.na(exclude_grid)){ name_suffix <- ""} if(!is.na(exclude_year)){ - name_suffix <- paste0(exclude_year, "_")} + name_suffix <- paste0("year_", exclude_year, "_")} if(!is.na(exclude_grid)){ - name_suffix <- paste0(exclude_grid, "_")} + name_suffix <- paste0("gridcell_", exclude_grid, "_")} #---------------# # Import data #