maj

module2/exo5/exo5_fr.Rmd

+---
+title: "Exo 5 shuttle"
+author: "Hélène Raynal"
+date: "21 avril 2020"
+output: html_document
+---
+
+
+### Création du vecteur des données
+
+
+```{r }
+dataShuttle <- read.csv("shuttle.csv",header=T)
+summary(dataShuttle)
+
+```
+### Vols où il y a eu des pb
+```{r }
+pb <- dataShuttle[dataShuttle$Malfunction>0,]
+pb
+
+```
+
+### Lien entre pb et température
+```{r }
+plot(data=pb, pb$Malfunction/Count ~ pb$Temperature, ylim=c(0,1))
+```
+
+### Régression logistique
+```{r }
+logistic_reg = glm(data=pb, Malfunction/Count ~ Temperature, weights=Count, 
+                   family=binomial(link='logit'))
+summary(logistic_reg)
+```
\ No newline at end of file

module2/exo5/shuttle.csv

+Date,Count,Temperature,Pressure,Malfunction
+4/12/81,6,66,50,0
+11/12/81,6,70,50,1
+3/22/82,6,69,50,0
+11/11/82,6,68,50,0
+4/04/83,6,67,50,0
+6/18/82,6,72,50,0
+8/30/83,6,73,100,0
+11/28/83,6,70,100,0
+2/03/84,6,57,200,1
+4/06/84,6,63,200,1
+8/30/84,6,70,200,1
+10/05/84,6,78,200,0
+11/08/84,6,67,200,0
+1/24/85,6,53,200,2
+4/12/85,6,67,200,0
+4/29/85,6,75,200,0
+6/17/85,6,70,200,0
+7/29/85,6,81,200,0
+8/27/85,6,76,200,0
+10/03/85,6,79,200,0
+10/30/85,6,75,200,2
+11/26/85,6,76,200,0
+1/12/86,6,58,200,1