Modifications pour les nouveaux calculs.

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