Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
M
mooc-rr
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
d581efc242e1e06dfa8d0dea8ee470e0
mooc-rr
Commits
3675a783
Commit
3675a783
authored
Apr 08, 2020
by
Marc Oudart
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Résolution exercice 5 module 2
parent
d6068309
Changes
3
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
546 additions
and
6 deletions
+546
-6
exo5_fr.Rmd
module2/exo5/exo5_fr.Rmd
+14
-6
exo5_fr.html
module2/exo5/exo5_fr.html
+532
-0
exo5_fr.pdf
module2/exo5/exo5_fr.pdf
+0
-0
No files found.
module2/exo5/exo5_fr.Rmd
View file @
3675a783
...
@@ -2,9 +2,12 @@
...
@@ -2,9 +2,12 @@
title: "Analyse du risque de défaillance des joints toriques de la navette Challenger"
title: "Analyse du risque de défaillance des joints toriques de la navette Challenger"
author: "Arnaud Legrand"
author: "Arnaud Legrand"
date: "28 juin 2018"
date: "28 juin 2018"
output: html_document
output:
html_document: default
pdf_document: default
---
---
# __J'ai mis mes remarques en gras__
Le 27 Janvier 1986, veille du décollage de la navette _Challenger_, eu
Le 27 Janvier 1986, veille du décollage de la navette _Challenger_, eu
lieu une télé-conférence de trois heures entre les ingénieurs de la
lieu une télé-conférence de trois heures entre les ingénieurs de la
Morton Thiokol (constructeur d'un des moteurs) et de la NASA. La
Morton Thiokol (constructeur d'un des moteurs) et de la NASA. La
...
@@ -39,13 +42,14 @@ nombre de dysfonctionnements relevés.
...
@@ -39,13 +42,14 @@ nombre de dysfonctionnements relevés.
Les vols où aucun incident n'est relevé n'apportant aucun information
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
sur l'influence de la température ou de la pression sur les
dysfonctionnements, nous nous concentrons sur les expériences où au
dysfonctionnements, nous nous concentrons sur les expériences où au
moins un joint a été défectueux.
moins un joint a été défectueux.
__Je me demande pourquoi est-ce qu'on a enlevé des données ...__
```{r}
```{r}
data = data[data$Malfunction>0,]
#
data = data[data$Malfunction>0,]
data
#
data
```
```
__J'ai enlevé la partie où seules les malfonctions sont comptées__
Très bien, nous avons une variabilité de température importante mais
Très bien, nous avons une variabilité de température importante mais
la pression est quasiment toujours égale à 200, ce qui devrait
la pression est quasiment toujours égale à 200, ce qui devrait
simplifier l'analyse.
simplifier l'analyse.
...
@@ -55,6 +59,7 @@ Comment la fréquence d'échecs varie-t-elle avec la température ?
...
@@ -55,6 +59,7 @@ Comment la fréquence d'échecs varie-t-elle avec la température ?
plot(data=data, Malfunction/Count ~ Temperature, ylim=c(0,1))
plot(data=data, Malfunction/Count ~ Temperature, ylim=c(0,1))
```
```
__Ah bah oui !!! On dirait qu'il y a moins de malfonctions pour les hautes températures !!__
À première vue, ce n'est pas flagrant mais bon, essayons quand même
À première vue, ce n'est pas flagrant mais bon, essayons quand même
d'estimer l'impact de la température $t$ sur la probabilité de
d'estimer l'impact de la température $t$ sur la probabilité de
dysfonctionnements d'un joint.
dysfonctionnements d'un joint.
...
@@ -75,6 +80,7 @@ logistic_reg = glm(data=data, Malfunction/Count ~ Temperature, weights=Count,
...
@@ -75,6 +80,7 @@ logistic_reg = glm(data=data, Malfunction/Count ~ Temperature, weights=Count,
summary(logistic_reg)
summary(logistic_reg)
```
```
__Ah bah en fait l'effet de la température a été sous-estimé d'un facteur 10 ... Elle est de 0.014 maintenant donc significatif ...__
L'estimateur le plus probable du paramètre de température est 0.001416
L'estimateur le plus probable du paramètre de température est 0.001416
et l'erreur standard de cet estimateur est de 0.049, autrement dit on
et l'erreur standard de cet estimateur est de 0.049, autrement dit on
ne peut pas distinguer d'impact particulier et il faut prendre nos
ne peut pas distinguer d'impact particulier et il faut prendre nos
...
@@ -93,6 +99,7 @@ plot(tempv,rmv,type="l",ylim=c(0,1))
...
@@ -93,6 +99,7 @@ plot(tempv,rmv,type="l",ylim=c(0,1))
points(data=data, Malfunction/Count ~ Temperature)
points(data=data, Malfunction/Count ~ Temperature)
```
```
__C'est horrible ... Il y a maintenant 80% de chance qu'il y ait une défaillance à 31°F ...__
Comme on pouvait s'attendre au vu des données initiales, la
Comme on pouvait s'attendre au vu des données initiales, la
température n'a pas d'impact notable sur la probabilité d'échec des
température n'a pas d'impact notable sur la probabilité d'échec des
joints toriques. Elle sera d'environ 0.2, comme dans les essais
joints toriques. Elle sera d'environ 0.2, comme dans les essais
...
@@ -105,6 +112,7 @@ data_full = read.csv("shuttle.csv",header=T)
...
@@ -105,6 +112,7 @@ data_full = read.csv("shuttle.csv",header=T)
sum(data_full$Malfunction)/sum(data_full$Count)
sum(data_full$Malfunction)/sum(data_full$Count)
```
```
__Oui ça c'est sans compter la température ...__
Cette probabilité est donc d'environ $p=0.065$, sachant qu'il existe
Cette probabilité est donc d'environ $p=0.065$, sachant qu'il existe
un joint primaire un joint secondaire sur chacune des trois parties du
un joint primaire un joint secondaire sur chacune des trois parties du
lançeur, la probabilité de défaillance des deux joints d'un lançeur
lançeur, la probabilité de défaillance des deux joints d'un lançeur
...
...
module2/exo5/exo5_fr.html
0 → 100644
View file @
3675a783
This diff is collapsed.
Click to expand it.
module2/exo5/exo5_fr.pdf
0 → 100644
View file @
3675a783
File added
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment