From 6debc4f00a8fbf1cab987f1c9ddc6da398e5f3a9 Mon Sep 17 00:00:00 2001 From: Natan Yusupov Date: Fri, 12 Apr 2024 11:03:43 +0200 Subject: [PATCH] small bug fix naming script 10 --- scripts/10_correction_batch_effects_unfiltered.Rmd | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scripts/10_correction_batch_effects_unfiltered.Rmd b/scripts/10_correction_batch_effects_unfiltered.Rmd index 7a86d94..a197302 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 = 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")) } } ```