Update exercice_fr.Rmd

module2/exo4/exercice_fr.Rmd

@@ -42,14 +42,13 @@ rr_grouped <- rr_20eme %>%
 head(rr_grouped)
 ```
 
-Très bien, essayons maintenant de voir s'il pourrait exister un lien de corrélation entre l'altitude d'un site et la pluviométrie qu'il a reçu.
+Très bien, essayons maintenant de voir s'il pourrait exister un lien entre l'altitude d'un site et la pluviométrie qu'il a reçu.
 ```{r corr, warning=F, prompt=F}
 library(tidyverse)
 ggplot(rr_grouped) +
   aes(x = ALTI, y = RR_YCUM, color = ANNEE) +
   geom_point(alpha = .45) +
-  geom_smooth(method = "lm") +
   scale_color_gradient(low="blue", high="red")
   labs(x = "Altitude", y = "Pluviométrie annuelle cumulée")
 ```
-Bon, il va falloir que je retravaille ça... En plus la répartition temporelle est très hétérogène.
+Bon, la répartition temporelle est très hétérogène, mais il semblerait qu'il y ait quelque chose à creuser. Je verrai ça demain... ;)
\ No newline at end of file