Commit 557532da authored by Safia Saci's avatar Safia Saci
Browse files

Update PCIT_RIF_gprofiler_analyse.R

parent 105240da
...@@ -306,7 +306,7 @@ ggsave(filename = "plots/rif_TF.png", bplot) ...@@ -306,7 +306,7 @@ ggsave(filename = "plots/rif_TF.png", bplot)
# best TFs with RIF value # 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) best_rif$val <- as.numeric(best_rif$val)
levels <- group_by(best_rif, name) %>% 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 ...@@ -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 # # save the liste of the best Tfs
# write.csv(x, "data/tsf.csv") # 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) all_tf <- rbind(up_cond_tf, up_line_tf, down_cond_tf, de_cond_tf, de_line_tf)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment