Skip to content

GitLab

Commit dc0dfa2e authored by LANORE Vincent's avatar LANORE Vincent
Browse files

More fixes to the R script for the plots.

parent 09a510b0
Hide whitespace changes
Inline Side-by-side
Showing with 10 additions and 2 deletions
lib/scripts/calc_t_per_meth.R
View file @ dc0dfa2e
......@@ -183,6 +183,8 @@ df_d_H0H0_NeG2NeG2_NeC_4 = build_df_dist_couple(df_H0_NeG2, df_H0_NeG2_NeC_4,
df_d_H0H0_NeG4NeG4_NeC_6 = build_df_dist_couple(df_H0_NeG4, df_H0_NeG4_NeC_6, "H0/H0 NeG4/NeG4_NeC_6")
df_d_H0_NeG1_HaPC_NeG1_NeC_4 = build_df_dist_couple(df_H0_NeG1, df_HaPC_NeG1_NeC_4, "H0 NeG1/HaPC NeG1_NeC_4")
df_d_H0_NeG2_HaPC_NeG2_NeC_4 = build_df_dist_couple(df_H0_NeG2, df_HaPC_NeG2_NeC_4, "H0 NeG2/HaPC NeG2_NeC_4")
df_d_H0_NeG4_HaPC_NeG4_NeC_6 = build_df_dist_couple(df_H0_NeG4, df_HaPC_NeG4_NeC_6, "H0 NeG4/HaPC NeG4_NeC_6")
df_d = rbind.data.frame(
df_d_H0HaPCOC_NeG1,
......@@ -209,7 +211,9 @@ df_d = rbind.data.frame(
df_d_H0H0_NeG2NeG2_NeC_4,
df_d_H0H0_NeG4NeG4_NeC_6,
df_d_H0_NeG1_HaPC_NeG1_NeC_4,
df_d_H0HaPC_NeG5_indel
df_d_H0_NeG2_HaPC_NeG2_NeC_4,
df_d_H0HaPC_NeG5_indel,
df_d_H0_NeG4_HaPC_NeG4_NeC_6
)
df_d = df_d[order(df_d$methode),]
......@@ -284,7 +288,7 @@ df_H0HaPC_NeG2 = build_df_couple(df_H0_NeG2, df_HaPC_NeG2, "H0/HaPC NeG2")
df_H0HaPC_NeG3 = build_df_couple(df_H0_NeG3, df_HaPC_NeG3, "H0/HaPC NeG3")
df_H0HaPC_NeG4 = build_df_couple(df_H0_NeG4, df_HaPC_NeG4, "H0/HaPC NeG4")
df_H0HaPC_NeG5 = build_df_couple(df_H0_NeG5, df_HaPC_NeG5, "H0/HaPC NeG5")
df_H0HaPC_NeG6 = build_df_couple(df_H0_NeG5, df_HaPC_NeG6, "H0/HaPC NeG6")
df_H0HaPC_NeG6 = build_df_couple(df_H0_NeG6, df_HaPC_NeG6, "H0/HaPC NeG6")
df_H0HaPC_NeG5_NeC_div2 = build_df_couple(df_H0_NeG5_NeC_div2, df_HaPC_NeG5_NeC_div2, "H0/HaPC NeG5_NeC_div2")
......@@ -313,6 +317,8 @@ df_H0H0_NeG4NeG4_NeC_6 = build_df_couple(df_H0_NeG4, df_H0_NeG4_NeC_6, "H0/H0
df_H0_NeG1_HaPC_NeG1_NeC_4 = build_df_couple(df_H0_NeG1, df_HaPC_NeG1_NeC_4, "H0 NeG1/HaPC NeG1_NeC_4")
df_H0_NeG2_HaPC_NeG2_NeC_4 = build_df_couple(df_H0_NeG2, df_HaPC_NeG2_NeC_4, "H0 NeG2/HaPC NeG2_NeC_4")
df_H0_NeG4_HaPC_NeG4_NeC_6 = build_df_couple(df_H0_NeG4, df_HaPC_NeG4_NeC_6, "H0 NeG4/HaPC NeG4_NeC_6")
df_H0HaPC_NeG5_indel = build_df_couple(df_H0_NeG5_indel, df_HaPC_NeG5_indel, "H0/HaPC NeG5_indel")
......@@ -329,7 +335,9 @@ df_l = list(df_H0HaPCOC_NeG1, df_H0HaPC_NeG1, df_H0HaPC_NeG2, df_H0HaPC_NeG3,
df_H0_NeG1_HaPC_NeG1_NeC_4,
df_H0H0_NeG4NeG4_NeC_2,
df_H0H0_NeG2NeG2_NeC_4,
df_H0_NeG2_HaPC_NeG2_NeC_4,
df_H0H0_NeG4NeG4_NeC_6,
df_H0_NeG4_HaPC_NeG4_NeC_6,
df_H0HaPC_NeG5_NeC_x2,df_H0HaPC_NeG5_indel)
df_l = df_l[-which(sapply(df_l, is.null))]
......
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