Commit 2f6e973e authored by Carine Rey's avatar Carine Rey
Browse files

fix names

parent be2ae394
......@@ -246,7 +246,7 @@ print(df_recall_sup09_per_meth)
plot_out = function(df_out, df_d , df_recall_sup09_per_meth, meths = NULL, suffix="") {
nb_c = length(unique(df_out$couple))
colors = c(c("#984EA3","#4AA947","#377EB8","#E41A1C","#F5BE5B","#90EE90")[1:nb_c], c("#7F7F7F","#ADD8E6"))
colors = c(c("#984EA3","#4AA947","#377EB8","#E41A1C","#F5BE5B","#90EE90","#8B6914")[1:nb_c], c("#7F7F7F","#ADD8E6"))
if (! is.null(meths)) {
......@@ -370,7 +370,7 @@ plot_out = function(df_out, df_d , df_recall_sup09_per_meth, meths = NULL, suffi
}
plot_out(df_out, df_d, df_recall_sup09_per_meth, suffix="")
condensed_meths = c("PCOC","diffsel","Identical_LG08","Mutinomial_1MinusLRT","Tdg09_1MinusFDR","Msd_1MinusP","Topological_LG08")
condensed_meths = c("PCOC","Diffsel_mean","Identical_LG08","Mutinomial_1MinusLRT","Tdg09_1MinusFDR","Msd_1MinusP","Topological_LG08")
plot_out(df_out, df_d, df_recall_sup09_per_meth, meths=condensed_meths, suffix="_condensed")
......
......@@ -43,7 +43,7 @@ print(files_df)
files_df_ok = data.frame(files= paste0(input_dir,"/",files), tree = gsub(".tsv", "",files), profil = opt$profil)
#files_df_ok = data.frame(files= paste0(input_dir,"/",files), tree = files_df$V1, bl = files_df$V1, profil = opt$profil)
condensed_meths = c("PCOC","diffsel","Identical_LG08","Mutinomial_1MinusLRT","Tdg09_1MinusFDR","Msd_1MinusP","Topological_LG08")
condensed_meths = c("PCOC","Diffsel_mean","Identical_LG08","Mutinomial_1MinusLRT","Tdg09_1MinusFDR","Msd_1MinusP","Topological_LG08")
read_dir = function(x) {
file = x["files"]
......
Markdown is supported
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