Update exo5_fr.Rmd

module2/exo5/exo5_fr.Rmd

@@ -61,7 +61,7 @@ tempv = seq(from=30, to=90, by = .5)
 rmv <- predict(logistic_reg,list(Temperature=tempv),type="response")
 rmv
 ```
-La probabilité de défaillance d'est donc de $p=0.8343$ d'aprèss le modèle. 
+La probabilité de défaillance est donc de $p=0.8343$ d'aprèss le modèle. 
 ```{r}
 plot(tempv,rmv,type="l",ylim=c(0,1))
 points(data=data, Malfunction/Count ~ Temperature)