Delete visualization_fun.R

src/visualization_fun.R

-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