From 6ffebf7e63d50d989969bcd8fadd2bd6b9cc4116 Mon Sep 17 00:00:00 2001
From: Maria Voigt <maria.voigt@idiv.de>
Date: Thu, 27 Jul 2017 13:04:47 +0200
Subject: [PATCH] changes in how saving of image is done
---
src/model_fitting/abundance_model.R | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/src/model_fitting/abundance_model.R b/src/model_fitting/abundance_model.R
index a2492f7..8a19785 100644
--- a/src/model_fitting/abundance_model.R
+++ b/src/model_fitting/abundance_model.R
@@ -388,8 +388,6 @@ m_terms <- c("1",
"I(rain_dry^2)")
-save.image(file.path(outdir, paste0("image_before_model_", exclude_rand, ".RData")))
-
# save model_terms here
model_terms <- names(glm.nb(as.formula(paste("nr_nests~", paste(m_terms,
collapse = "+"),
@@ -573,8 +571,8 @@ write.csv(summary_mean_coefficients,
Sys.Date(), ".csv")))
-save.image(file.path(outdir, paste0("abundance_model_fitting_",
- name_suffix,
- Sys.Date(), ".RData")))
+#save.image(file.path(outdir, paste0("abundance_model_fitting_",
+# name_suffix,
+# Sys.Date(), ".RData")))
print(paste("Finished model_fitting script, at", Sys.time()))
--
GitLab