adding comments and doubts to abundance-pred

src/prediction/abundance_prediction.R

@@ -81,6 +81,7 @@ predictor_names <- predictor_names[!grepl("year[:punct:]*", predictor_names)]
 predictor_names <- c("year", predictor_names)
                                         # predictors for year on grid
 
+print(paste("these are predictor names: ", predictor_names))
 predictors_path <- path.to.current(indir_predictors, paste0("predictors_abundance_",
                                                  year_to_predict),"rds")
 print(paste("this is predictors path", predictors_path))
@@ -131,7 +132,7 @@ t_predictor_estimates <- t( predictor_estimates[i, ])
 
 print(paste(Sys.time(), "2. finished dopar loop"))
 
-
+# is this correct -> ????
 pred_per_cell <- as.data.frame(cbind(predictors$id, pred_per_cell))
 names(pred_per_cell) <- c("id", "abundance_pred")
 
@@ -143,7 +144,7 @@ print(paste(Sys.time(), "sum predicted for ", year_to_predict,
             sum(pred_per_cell$abundance_pred)))
 print(paste(Sys.time(), "range predicted for ", year_to_predict,
             range(pred_per_cell$abundance_pred)))
-# has to be between 0 and 1
+
 
 save.image(file.path(outdir, paste0("abundance_pred_image_", year_to_predict, "_",
                                     Sys.Date(), ".RData")))