diff --git a/scripts/10_correction_batch_effects_unfiltered.Rmd b/scripts/10_correction_batch_effects_unfiltered.Rmd
index 1fadb42..7a86d94 100644
--- a/scripts/10_correction_batch_effects_unfiltered.Rmd
+++ b/scripts/10_correction_batch_effects_unfiltered.Rmd
@@ -577,7 +577,7 @@ if (changing_status == "changed") {
     save(Betas_clean_unfiltered_quantile_bmiq_combated_ExprSet, 
          file = paste0(user_choices$project_name, "/processed_data/Betas_clean_unfiltered_quantile_bmiq_combated_ExprSet.Rdata"))
     RGSet_clean_unfiltered_final <- RGSet_clean[ ,(colnames(RGSet_clean) %in% sampleNames(Betas_clean_unfiltered_quantile_bmiq_combated_ExprSet))]
-    save(RGSet_clean_unfiltered_final, file = "/processed_data/finalData/RGSet_clean_unfiltered_final.Rdata")
+    save(RGSet_clean_unfiltered_final, file = paste0(user_choices$project_name, "/processed_data/finalData/RGSet_clean_unfiltered_final.Rdata"))
   }
 } else {
   if (all.equal(colnames(Betas_clean_unfiltered_quantile_bmiq),rownames(PhenoData_clean))){
@@ -588,7 +588,7 @@ if (changing_status == "changed") {
     save(Betas_clean_unfiltered_quantile_bmiq_ExprSet, 
          file = paste0(user_choices$project_name, "/processed_data/Betas_clean_unfiltered_quantile_bmiq_ExprSet.Rdata"))
     RGSet_clean_unfiltered_final <- RGSet_clean[ ,(colnames(RGSet_clean) %in% sampleNames(Betas_clean_unfiltered_quantile_bmiq_ExprSet))]
-    save(RGSet_clean_unfiltered_final, file = "/processed_data/finalData/RGSet_clean_unfiltered_final.Rdata")
+    save(RGSet_clean_unfiltered_final, file = paste0(user_choices$project_name, "/processed_data/finalData/RGSet_clean_unfiltered_final.Rdata"))
   }
 }
 ```