small bug fix naming script 10

mpip · Apr 12, 2024 · 6debc4f · 6debc4f
1 parent 5c8f859
commit 6debc4f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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 = paste0(user_choices$project_name, "/processed_data/finalData/RGSet_clean_unfiltered_final.Rdata"))
+    save(RGSet_clean_unfiltered_final, file = paste0(user_choices$project_name, "/processed_data/final_data/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 = paste0(user_choices$project_name, "/processed_data/finalData/RGSet_clean_unfiltered_final.Rdata"))
+    save(RGSet_clean_unfiltered_final, file = paste0(user_choices$project_name, "/processed_data/final_data/RGSet_clean_unfiltered_final.Rdata"))
   }
 }
 ```