diff --git a/src/model_fitting/abundance_model.R b/src/model_fitting/abundance_model.R index 0f7c2dc13853b8cebd7d4dcc79defa729e82dbdb..590f879034dba381e14b338de01146325725fb06 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()))}