diff --git a/module2/exo2/exercice_R_fr.org b/module2/exo2/exercice_R_fr.org
index 4b86fe9e7618ed16ae70492fba3f1ba9a9594aaa..cdddf22402963f61175d41e9616d49b9c2944260 100644
--- a/module2/exo2/exercice_R_fr.org
+++ b/module2/exo2/exercice_R_fr.org
@@ -11,22 +11,6 @@
 #+HTML_HEAD: <script type="text/javascript" src="http://www.pirilampo.org/styles/lib/js/jquery.stickytableheaders.js"></script>
 #+HTML_HEAD: <script type="text/javascript" src="http://www.pirilampo.org/styles/readtheorg/js/readtheorg.js"></script>
 
-* Quelques explications
-
-Ceci est un document org-mode avec quelques exemples de code
-R. Une fois ouvert dans emacs, ce document peut aisément être
-exporté au format HTML, PDF, et Office. Pour plus de détails sur
-org-mode vous pouvez consulter https://orgmode.org/guide/.
-
-Lorsque vous utiliserez le raccourci =C-c C-e h o=, ce document sera
-compilé en html. Tout le code contenu sera ré-exécuté, les résultats
-récupérés et inclus dans un document final. Si vous ne souhaitez pas
-ré-exécuter tout le code à chaque fois, il vous suffit de supprimer
-le # et l'espace qui sont devant le ~#+PROPERTY:~ au début de ce
-document.
-
-Comme nous vous l'avons montré dans la vidéo, on inclut du code
-R de la façon suivante (et on l'exécute en faisant ~C-c C-c~):
 
 #+begin_src R :results output :exports both
 c_data <- c(14.0, 7.6, 11.2, 12.8, 12.5, 9.9, 14.9, 9.4, 16.9, 10.2, 14.9, 18.1,
@@ -37,9 +21,9 @@ c_data <- c(14.0, 7.6, 11.2, 12.8, 12.5, 9.9, 14.9, 9.4, 16.9, 10.2, 14.9, 18.1,
 19.1, 14.4, 21.4, 15.1, 19.6, 21.7, 11.3, 15.0, 14.3, 16.8, 14.0, 6.8, 8.2,
 19.9, 20.4, 14.6, 16.4, 18.7, 16.8, 15.8, 20.4, 15.8, 22.4, 16.2, 20.3, 23.4,
 12.1, 15.5, 15.4, 18.4, 15.7, 10.2, 8.9, 21.0)
-print(paste("Valeur minimale", min(c_data)))
-print(paste("Valeur maximale", max(c_data)))
-print(paste("Valeur moyenne", round(mean(c_data), 2)))
-print(paste("Valeur médiane", round(median(c_data), 2)))
-print(paste("Ecart type", round(sd(c_data), 2)))
+print(paste("Valeur minimale :", min(c_data)))
+print(paste("Valeur maximale :", max(c_data)))
+print(paste("Valeur moyenne :", round(mean(c_data), 2)))
+print(paste("Valeur médiane :", round(median(c_data), 2)))
+print(paste("Ecart type :", round(sd(c_data), 2)))
 #+end_src