diff --git a/scripts/8_removal_of_outliers_detect_batch_effects.Rmd b/scripts/8_removal_of_outliers_detect_batch_effects.Rmd
index 6bbf7ec..8d176f6 100644
--- a/scripts/8_removal_of_outliers_detect_batch_effects.Rmd
+++ b/scripts/8_removal_of_outliers_detect_batch_effects.Rmd
@@ -46,7 +46,7 @@ start_time <- Sys.time()
 
 
 ```{r setup, include=FALSE}
-source("../data/calculate_pc_cutoff.R") # source function for determining PC cutoff 
+source("../data/Calculate_PC_Cutoff.R") # source function for determining PC cutoff 
 needed_packages <- c("BiocManager", "dplyr", "knitr", "rmarkdown", "tibble", "ggplot2", 
                      "ggrepel", "broom", "gplots", "tidyr", "sva", "methods")
 user_choices <- readRDS("../data/user_choices.rds")