From b57514c15affab5f1f22391b3202fa48f690f18a Mon Sep 17 00:00:00 2001
From: Juan Caballero <caballero@pc398.ie-freiburg.mpg.de>
Date: Mon, 22 Apr 2024 09:45:58 +0200
Subject: [PATCH] adding exercise solutions

---
 qmd/08_DataWrangling.qmd | 25 +++++++++++++++++++++++--
 1 file changed, 23 insertions(+), 2 deletions(-)

diff --git a/qmd/08_DataWrangling.qmd b/qmd/08_DataWrangling.qmd
index a9aa962..40c3798 100644
--- a/qmd/08_DataWrangling.qmd
+++ b/qmd/08_DataWrangling.qmd
@@ -62,7 +62,11 @@ select(rna, gene, sample, tissue, expression)
 ## Dplyr in action - `select()` {auto-animate="true"}
 
 Column exclusion can be defined with `-`
-```{r}#| echo: true
+```{r}
+#| echo: true
+select(rna, gene, -sample, -tissue, -time)
+
+```
 
 
 ## Hands on  {auto-animate="true"}
@@ -84,7 +88,7 @@ select(rna, gene, ensembl_gene_id, hsapiens_homolog_associated_gene_name)
 - Select `gene, gene_biotype, phenotype_description`
 ```{r}
 #| echo: true
-select(rna, gene_biotype, phenotype_description)
+select(rna, gene, gene_biotype, phenotype_description)
 ```
 
 ## Dplyr in action - `filter()` {auto-animate="true"}
@@ -124,6 +128,23 @@ filter(rna, sex == "Male", infection == "NonInfected")
 
 - Filter data for `Cerebellum` in `time 0`
 
+## Hands on {auto-animate="true"}
+
+- Filter data for `females` and `infected`
+
+```{r}
+#| echo: true
+filter(rna, sex == "Female", infection != "NonInfected")
+```
+
+## Hands on {auto-animate="true"}
+
+- Filter data for `Cerebellum` in `time 0`
+```{r}
+#| echo: true
+
+filter(rna, tissue == "Cerebellum", time == 0)
+```
 
 ## Dplyr in action - `filter()` {auto-animate="true"}