fixing crucial bug: resultsdataframe in foreach loop

otherwise the values of other coefficients are used and nothing makes sense

src/model_fitting/abundance_model.R

@@ -365,16 +365,23 @@ write.csv(dfbeta_frame, file.path(outdir,
 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)){
-result <- as.data.frame(matrix(NA, ncol = 3 * length(model_terms) + 4, #5,
+      result <- as.data.frame(matrix(NA, ncol = 3 *
+                                       length(model_terms) + 4, #5
                                      nrow = 1))
                            names(result) <- c("model", paste("coeff", model_terms, sep = "_"),
                                               paste("P",model_terms,sep = "_"),
                                               paste("SE", model_terms, sep = "_"),
                                               "theta", "SE.theta", "AIC" #, "R2"
-                   )
-} else {
-    result <- as.data.frame(matrix(NA, ncol = 3 * length(model_terms) +5, #+ 6,
+                           )} else {
+      result <- as.data.frame(matrix(NA, ncol = 3 *
+                                       length(model_terms) +5, #+ 6,
                                                           nrow = 1))
       names(result) <- c("model", paste("coeff", model_terms, sep = "_"),
                                               paste("P",model_terms,sep = "_"),
@@ -382,10 +389,7 @@ names(result) <- c("model", paste("coeff", model_terms, sep = "_"),
                                               "theta", "SE.theta", "AIC", #"R2",
                                               "R2_cross")
                          }
-
-
-results_res <- foreach(i = 1:nrow(all_model_terms),
-                       .combine = rbind) %dopar%{
+    # make model
     model <- as.formula(
             paste("nr_nests ~",
 	    paste(m_terms[all_model_terms[i, ] == 1], collapse = "+"),