diff --git a/src/model_fitting/abundance_model.R b/src/model_fitting/abundance_model.R
index 0a1a0db43155e16bf7ab00f16602b03f559e15db..6e8980225611a20693362bba48550f9cc2fb83b2 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