diff --git a/session_4/session_4.Rmd b/session_4/session_4.Rmd
index 66215b72edd9f0af7a93b0b1ac59b445f11ce685..d60a76a5dcbe378917d4d7d30f8b74c822e54313 100644
--- a/session_4/session_4.Rmd
+++ b/session_4/session_4.Rmd
@@ -602,7 +602,15 @@ Install and load the `ggrepl` package.
 install.packages("ggrepel")
 library(ggrepel)
 ```
+  </p>
+</details>
+
+Let s **filter** our table into a new variable, top10, to keep only the top 10 according to the adjusted pvalue. 
+**Tips :**  You can use the [function](https://dplyr.tidyverse.org/reference/slice.html) `slice_min()`
 
+top10 <- tab.sig %>% 
+  filter(sig == TRUE) %>% 
+  slice_min(n = 10, padj)