From 8693781ed4776259eba9535194a59ebb2c63da9c Mon Sep 17 00:00:00 2001
From: Maria Voigt <maria.voigt@idiv.de>
Date: Tue, 18 Apr 2017 14:30:25 +0200
Subject: [PATCH] deleting the image and the function that no longer in this
script
---
src/model_fitting/abundance_model.R | 5 -----
1 file changed, 5 deletions(-)
diff --git a/src/model_fitting/abundance_model.R b/src/model_fitting/abundance_model.R
index 0a1a0db..6e89802 100644
--- a/src/model_fitting/abundance_model.R
+++ b/src/model_fitting/abundance_model.R
@@ -103,7 +103,6 @@ cl <- makeForkCluster(outfile = "")
registerDoParallel(cl)
source(file.path(indir_fun, "project_functions/scale.predictors.R"))
-source(file.path(indir_fun, "project_functions/assign.grid.id.R"))
source(file.path(indir_fun, "roger_functions/rogers_model_functions.R"))
source(file.path(indir_fun, "generic/path.to.current.R"))
source(file.path(indir_fun, "roger_functions/aic_c_fac.r"))
@@ -366,10 +365,6 @@ write.csv(dfbeta_frame, file.path(outdir,
if(is_verbose){print(paste("8. Start running models", Sys.time()))}
-
-
-save.image(file.path(outdir, "image_before_fail.RData"))
-
results_res <- foreach(i = 1:nrow(all_model_terms),
.combine = rbind) %dopar%{
# make results dataframe
--
GitLab