diff --git a/src/model_fitting/abundance_model.R b/src/model_fitting/abundance_model.R index 6b51688549952a0387b456b3b1d263f7f96d5e57..53788c96a6716f6e912efebdc92dad12d2b3f09d 100644 --- a/src/model_fitting/abundance_model.R +++ b/src/model_fitting/abundance_model.R @@ -384,7 +384,7 @@ if(is_verbose){print(paste("8. Start running models", Sys.time()))} results_res <- foreach(i = 1:nrow(all_model_terms), .combine = rbind) %dopar%{ # make results dataframe - if (is.na(exclude_year) | is.na(exclude_grid)){ + if (is.na(exclude_year) & is.na(exclude_grid)){ result <- as.data.frame(matrix(NA, ncol = 3 * length(model_terms) + 5, nrow = 1))