Replace exercice_fr.Rmd

module2/exo2/exercice_fr.Rmd

@@ -19,4 +19,12 @@ ecart_type <- sd(données)
 min <- min(données)
 mediane <- median(données)
 max <- max(données)
+```
+
+## Affichage graphique
+```{r}
+par(pty="s") #Avoir des graphiques carrés
+plot(données,xlim=c(0,100),ylim=c(0,25),xlab="",ylab="",yaxs="i",xaxs = "i",panel.first=grid(),type="l",col="blue",tck=0.01)
+hist(données,breaks = seq(min(données),max(données),length=11),xlim=c(0,25),ylim=c(0,25),xlab="",ylab="",main="",yaxs="i",xaxs = "i",col="blue",tck=0.01)
+box()
 ```
\ No newline at end of file