Skip to content
Snippets Groups Projects
Commit dc8893c8 authored by nfontrod's avatar nfontrod
Browse files

src/04_get_stable_genes.R: fix renameing function

parent f8e04631
No related branches found
No related tags found
No related merge requests found
Show whitespace changes
Inline Side-by-side
src/04_get_stable_genes.R
+ 2
− 2
View file @ dc8893c8
...@@ -243,7 +243,7 @@ dmso_fig <- dmso_table %>% ...@@ -243,7 +243,7 @@ dmso_fig <- dmso_table %>%
summarise(mean_cpm = mean(CPM)) %>% summarise(mean_cpm = mean(CPM)) %>%
pivot_wider(names_from = groups, values_from = mean_cpm) pivot_wider(names_from = groups, values_from = mean_cpm)
dmso_fig <- dmso_fig %>% dmso_fig <- dmso_fig %>%
rename("0" = "DMSO_T_0h", "5" = "DMSO_T_5h", "3" = "DMSO_T_3h") %>% rename("DMSO_T_0h" = "0", "DMSO_T_5h" = "5", "DMSO_T_3h" = "3") %>%
mutate(stable = gene %in% rownames(stable)) %>% mutate(stable = gene %in% rownames(stable)) %>%
arrange(-stable) arrange(-stable)
...@@ -336,7 +336,7 @@ braf_fig <- braf_table %>% ...@@ -336,7 +336,7 @@ braf_fig <- braf_table %>%
summarise(mean_cpm = mean(CPM)) %>% summarise(mean_cpm = mean(CPM)) %>%
pivot_wider(names_from = groups, values_from = mean_cpm) pivot_wider(names_from = groups, values_from = mean_cpm)
braf_fig <- braf_fig %>% braf_fig <- braf_fig %>%
rename("0" = "BRAF_T_0h", "5" = "BRAF_T_5h", "3" = "BRAF_T_3h") %>% rename("BRAF_T_0h" = "0", "BRAF_T_5h" = "5", "BRAF_T_3h" = "3") %>%
mutate(stable = gene %in% rownames(stable)) %>% mutate(stable = gene %in% rownames(stable)) %>%
arrange(-stable) arrange(-stable)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment