From 8d3f7129932e0dbcc04fe055a9fbb3d13bba581a Mon Sep 17 00:00:00 2001
From: hpolvech <helene.polveche@ens-lyon.fr>
Date: Thu, 14 Oct 2021 10:23:44 +0200
Subject: [PATCH] tab.sig
---
session_4/session_4.Rmd | 15 ++++++++++-----
1 file changed, 10 insertions(+), 5 deletions(-)
diff --git a/session_4/session_4.Rmd b/session_4/session_4.Rmd
index 659955e..98ae998 100644
--- a/session_4/session_4.Rmd
+++ b/session_4/session_4.Rmd
@@ -579,11 +579,16 @@ With `mutate()` and `ifelse()` [fonctions](https://dplyr.tidyverse.org/reference
```{r sig}
tab.sig <- tab %>%
mutate(sig = baseMean > 20 & padj < 0.05 & abs(log2FoldChange) >= 1.5 ) %>%
- mutate(UpDown = ifelse(baseMean > 20 & padj < 0.05 & log2FoldChange >= 1.5, "Up",
- ifelse(baseMean > 20 & padj < 0.05 & log2FoldChange <= -1.5, "Down", "NO")
- ) )
-
-tab
+ mutate(UpDown = ifelse(
+ baseMean > 20 & padj < 0.05 & log2FoldChange >= 1.5,
+ "Up",
+ ifelse(
+ baseMean > 20 & padj < 0.05 & log2FoldChange <= -1.5,
+ "Down",
+ "NO"
+ )))
+
+tab.sig
```
</p>
</details>
--
GitLab