Update PCIT_RIF_gprofiler_analyse.R

PCIT_RIF_gprofiler_analyse.R

@@ -306,7 +306,7 @@ ggsave(filename = "plots/rif_TF.png", bplot)
 
 
 # best TFs with RIF value
-best_rif <- read.csv2("data/best_rif.csv")
+best_rif <- read.csv2("data/best_tfs_rif.csv")
 best_rif$val <- as.numeric(best_rif$val)
 
 levels <- group_by(best_rif, name) %>%
@@ -361,7 +361,7 @@ de_cond_tf <- de_cond_tf[order(de_cond_tf$negative_log10_of_adjusted_p_value, de
 # # save the liste of the best Tfs 
 # write.csv(x, "data/tsf.csv")
 
-x <- read.csv("data/tsf.csv")
+x <- read.csv("data/best_tfs_gprofiler.csv")
 
 all_tf <- rbind(up_cond_tf, up_line_tf, down_cond_tf, de_cond_tf, de_line_tf)