From 6dd35d8a3ab29f899faafcc5dc8573f46f65d152 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ger=C3=B3nimo=20Cardozo?= <gcardozo@inia.org.uy>
Date: Fri, 23 Apr 2021 07:06:03 -0300
Subject: [PATCH] Modifications pour les nouveaux calculs.

---
 module2/exo5/exo5_fr.Rmd | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)

diff --git a/module2/exo5/exo5_fr.Rmd b/module2/exo5/exo5_fr.Rmd
index 479d782..cf4db1e 100644
--- a/module2/exo5/exo5_fr.Rmd
+++ b/module2/exo5/exo5_fr.Rmd
@@ -22,6 +22,7 @@ disposons des résultats des expériences réalisées par les ingénieurs
 de la NASA durant les 6 années précédant le lancement de la navette
 Challenger.
 
+
 # Chargement des données
 Nous commençons donc par charger ces données:
 
@@ -35,6 +36,41 @@ toriques mesurés (il y en a 6 sur le lançeur principal), la
 température (en Farenheit) et la pression (en psi), et enfin le
 nombre de dysfonctionnements relevés. 
 
+
+Graphique de toutes les données
+```{r}
+plot(data=data, Malfunction ~ Temperature, ylim=c(0,1))
+```
+
+
+Effectuer une régression logistique
+
+```{r}
+logistic_reg = glm(data=data, Malfunction/Count ~ Temperature, weights=Count, 
+                   family=binomial(link='logit'))
+summary(logistic_reg)
+```
+
+Graphique des données et de la fonction logistique.
+```{r}
+# shuttle=shuttle[shuttle$r!=0,] 
+tempv = seq(from=30, to=90, by = .5)
+rmv <- predict(logistic_reg,list(Temperature=tempv),type="response")
+plot(tempv,rmv,type="l",ylim=c(0,1))
+points(data=data, Malfunction/Count ~ Temperature)
+```
+
+```{r}
+ggplot(data=data, mapping=aes(x=Temperature, y=Malfunction)) + geom_point(alpha=.3,size=3) + 
+  theme_bw() +
+  geom_smooth(method = "glm",
+              method.args=list(family="binomial")) + xlim(30,90)
+```
+```{r}
+rlang::last_error()
+```
+
+
 # Inspection graphique des données
 Les vols où aucun incident n'est relevé n'apportant aucun information
 sur l'influence de la température ou de la pression sur les
-- 
2.18.1