From fbd302a4a2b0ff3d0f5c1e0813df3f63ebb04223 Mon Sep 17 00:00:00 2001
From: Arnaud Duvermy <arnaud.duvermy@ens-lyon.fr>
Date: Thu, 3 Mar 2022 11:20:38 +0100
Subject: [PATCH] Delete visualization_fun.R
---
src/visualization_fun.R | 18 ------------------
1 file changed, 18 deletions(-)
delete mode 100644 src/visualization_fun.R
diff --git a/src/visualization_fun.R b/src/visualization_fun.R
deleted file mode 100644
index fe11135..0000000
--- a/src/visualization_fun.R
+++ /dev/null
@@ -1,18 +0,0 @@
-library(ggplot2)
-
-# visualization functions
-mu_effect_visualization <- function(mu_effect_res){
- label_wrap <- c("mu observed", "N gene DE", "min(|logFC|)", "var observed")
- names(label_wrap) <- c("mu_observ", "res_DEA", "statistical_power", "var_observ")
- figure = mu_effect_res %>% ggplot(., aes(x=vec_of_mu, y = value, col=factor(N_rep))) +
- geom_point() + facet_wrap(~variable, scales = "free_y", labeller = labeller(variable = label_wrap)) + labs(color = "N replicates")
- return(figure)
-}
-
-size_effect_visualization <- function(alpha_effect_res){
- label_wrap <- c("mu observed", "N gene DE", "min(|logFC|)", "var observed")
- names(label_wrap) <- c("mu_observ", "res_DEA", "statistical_power", "var_observ")
- figure = alpha_effect_res %>% ggplot(., aes(x=vec_of_alpha, y = value, col=factor(N_rep))) +
- geom_point() + facet_wrap(~variable, scales = "free_y", labeller = labeller(variable = label_wrap)) + labs(color = "N replicates")
- return(figure)
-}
\ No newline at end of file
--
GitLab