diff --git a/src/model_fitting/abundance_model.R b/src/model_fitting/abundance_model.R index 8766ba31bf6460f09cd6951c8c2d93793af35f9e..374ae38ffe1164fa1abadf0a974e402f3b1ae544 100644 --- a/src/model_fitting/abundance_model.R +++ b/src/model_fitting/abundance_model.R @@ -282,7 +282,8 @@ if (!is.na(exclude_year)){ # or the grid_cell if (!is.na(exclude_grid)){ predictors_excluded_grid <- predictors_obs[predictors_obs$grid_id == exclude_grid, ] - predictors_obs <- predictors_obs[predictors_obs$s$grid_id != exclude_grid, ]} + predictors_obs <- predictors_obs[predictors_obs$grid_id != exclude_grid, ] +} if(is_verbose){ print(paste("3. start making all_model_terms", Sys.time()))}