{ "cells": [ { "cell_type": "markdown", "metadata": {}, "source": [ "# Analyse du risque de défaillance des joints toriques de la navette Challenger" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "Le 27 Janvier 1986, veille du décollage de la navette _Challenger_, eu\n", "lieu une télé-conférence de trois heures entre les ingénieurs de la\n", "Morton Thiokol (constructeur d'un des moteurs) et de la NASA. La\n", "discussion portait principalement sur les conséquences de la\n", "température prévue au moment du décollage de 31°F (juste en dessous de\n", "0°C) sur le succès du vol et en particulier sur la performance des\n", "joints toriques utilisés dans les moteurs. En effet, aucun test\n", "n'avait été effectué à cette température.\n", "\n", "L'étude qui suit reprend donc une partie des analyses effectuées cette\n", "nuit là et dont l'objectif était d'évaluer l'influence potentielle de\n", "la température et de la pression à laquelle sont soumis les joints\n", "toriques sur leur probabilité de dysfonctionnement. Pour cela, nous\n", "disposons des résultats des expériences réalisées par les ingénieurs\n", "de la NASA durant les 6 années précédant le lancement de la navette\n", "Challenger." ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "## Chargement des données\n", "Nous commençons donc par charger ces données :" ] }, { "cell_type": "code", "execution_count": 1, "metadata": {}, "outputs": [ { "data": { "text/html": [ "\n", "\n", "\n", "\t\n", "\t\n", "\t\n", "\t\n", "\t\n", "\t\n", "\t\n", "\t\n", "\t\n", "\t\n", "\t\n", "\t\n", "\t\n", "\t\n", "\t\n", "\t\n", "\t\n", "\t\n", "\t\n", "\t\n", "\t\n", "\t\n", "\t\n", "\n", "
DateCountTemperaturePressureMalfunction
4/12/81 6 66 50 0
11/12/816 70 50 1
3/22/82 6 69 50 0
11/11/826 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/836 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/846 78 200 0
11/08/846 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/856 79 200 0
10/30/856 75 200 2
11/26/856 76 200 0
1/12/86 6 58 200 1
\n" ], "text/latex": [ "\\begin{tabular}{r|lllll}\n", " Date & Count & Temperature & Pressure & Malfunction\\\\\n", "\\hline\n", "\t 4/12/81 & 6 & 66 & 50 & 0 \\\\\n", "\t 11/12/81 & 6 & 70 & 50 & 1 \\\\\n", "\t 3/22/82 & 6 & 69 & 50 & 0 \\\\\n", "\t 11/11/82 & 6 & 68 & 50 & 0 \\\\\n", "\t 4/04/83 & 6 & 67 & 50 & 0 \\\\\n", "\t 6/18/82 & 6 & 72 & 50 & 0 \\\\\n", "\t 8/30/83 & 6 & 73 & 100 & 0 \\\\\n", "\t 11/28/83 & 6 & 70 & 100 & 0 \\\\\n", "\t 2/03/84 & 6 & 57 & 200 & 1 \\\\\n", "\t 4/06/84 & 6 & 63 & 200 & 1 \\\\\n", "\t 8/30/84 & 6 & 70 & 200 & 1 \\\\\n", "\t 10/05/84 & 6 & 78 & 200 & 0 \\\\\n", "\t 11/08/84 & 6 & 67 & 200 & 0 \\\\\n", "\t 1/24/85 & 6 & 53 & 200 & 2 \\\\\n", "\t 4/12/85 & 6 & 67 & 200 & 0 \\\\\n", "\t 4/29/85 & 6 & 75 & 200 & 0 \\\\\n", "\t 6/17/85 & 6 & 70 & 200 & 0 \\\\\n", "\t 7/29/85 & 6 & 81 & 200 & 0 \\\\\n", "\t 8/27/85 & 6 & 76 & 200 & 0 \\\\\n", "\t 10/03/85 & 6 & 79 & 200 & 0 \\\\\n", "\t 10/30/85 & 6 & 75 & 200 & 2 \\\\\n", "\t 11/26/85 & 6 & 76 & 200 & 0 \\\\\n", "\t 1/12/86 & 6 & 58 & 200 & 1 \\\\\n", "\\end{tabular}\n" ], "text/markdown": [ "\n", "Date | Count | Temperature | Pressure | Malfunction | \n", "|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|\n", "| 4/12/81 | 6 | 66 | 50 | 0 | \n", "| 11/12/81 | 6 | 70 | 50 | 1 | \n", "| 3/22/82 | 6 | 69 | 50 | 0 | \n", "| 11/11/82 | 6 | 68 | 50 | 0 | \n", "| 4/04/83 | 6 | 67 | 50 | 0 | \n", "| 6/18/82 | 6 | 72 | 50 | 0 | \n", "| 8/30/83 | 6 | 73 | 100 | 0 | \n", "| 11/28/83 | 6 | 70 | 100 | 0 | \n", "| 2/03/84 | 6 | 57 | 200 | 1 | \n", "| 4/06/84 | 6 | 63 | 200 | 1 | \n", "| 8/30/84 | 6 | 70 | 200 | 1 | \n", "| 10/05/84 | 6 | 78 | 200 | 0 | \n", "| 11/08/84 | 6 | 67 | 200 | 0 | \n", "| 1/24/85 | 6 | 53 | 200 | 2 | \n", "| 4/12/85 | 6 | 67 | 200 | 0 | \n", "| 4/29/85 | 6 | 75 | 200 | 0 | \n", "| 6/17/85 | 6 | 70 | 200 | 0 | \n", "| 7/29/85 | 6 | 81 | 200 | 0 | \n", "| 8/27/85 | 6 | 76 | 200 | 0 | \n", "| 10/03/85 | 6 | 79 | 200 | 0 | \n", "| 10/30/85 | 6 | 75 | 200 | 2 | \n", "| 11/26/85 | 6 | 76 | 200 | 0 | \n", "| 1/12/86 | 6 | 58 | 200 | 1 | \n", "\n", "\n" ], "text/plain": [ " Date Count Temperature Pressure Malfunction\n", "1 4/12/81 6 66 50 0 \n", "2 11/12/81 6 70 50 1 \n", "3 3/22/82 6 69 50 0 \n", "4 11/11/82 6 68 50 0 \n", "5 4/04/83 6 67 50 0 \n", "6 6/18/82 6 72 50 0 \n", "7 8/30/83 6 73 100 0 \n", "8 11/28/83 6 70 100 0 \n", "9 2/03/84 6 57 200 1 \n", "10 4/06/84 6 63 200 1 \n", "11 8/30/84 6 70 200 1 \n", "12 10/05/84 6 78 200 0 \n", "13 11/08/84 6 67 200 0 \n", "14 1/24/85 6 53 200 2 \n", "15 4/12/85 6 67 200 0 \n", "16 4/29/85 6 75 200 0 \n", "17 6/17/85 6 70 200 0 \n", "18 7/29/85 6 81 200 0 \n", "19 8/27/85 6 76 200 0 \n", "20 10/03/85 6 79 200 0 \n", "21 10/30/85 6 75 200 2 \n", "22 11/26/85 6 76 200 0 \n", "23 1/12/86 6 58 200 1 " ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "data = read.csv(\"shuttle.csv\",header=T)\n", "data" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "Le jeu de données nous indique la date de l'essai, le nombre de joints\n", "toriques mesurés (il y en a 6 sur le lançeur principal), la\n", "température (en Farenheit) et la pression (en psi), et enfin le\n", "nombre de dysfonctionnements relevés." ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "## Inspection graphique des données\n", "Les vols où aucun incident n'est relevé n'apportant aucun information\n", "sur l'influence de la température ou de la pression sur les\n", "dysfonctionnements, nous nous concentrons sur les expériences où au\n", "moins un joint a été défectueux." ] }, { "cell_type": "code", "execution_count": 2, "metadata": {}, "outputs": [ { "data": { "text/html": [ "\n", "\n", "\n", "\t\n", "\t\n", "\n", "\n", "\t\n", "\t\n", "\t\n", "\t\n", "\t\n", "\t\n", "\t\n", "\n", "
A data.frame: 7 × 5
DateCountTemperaturePressureMalfunction
<fct><int><int><int><int>
211/12/81670 501
92/03/84 6572001
104/06/84 6632001
118/30/84 6702001
141/24/85 6532002
2110/30/856752002
231/12/86 6582001
\n" ], "text/latex": [ "A data.frame: 7 × 5\n", "\\begin{tabular}{r|lllll}\n", " & Date & Count & Temperature & Pressure & Malfunction\\\\\n", " & & & & & \\\\\n", "\\hline\n", "\t2 & 11/12/81 & 6 & 70 & 50 & 1\\\\\n", "\t9 & 2/03/84 & 6 & 57 & 200 & 1\\\\\n", "\t10 & 4/06/84 & 6 & 63 & 200 & 1\\\\\n", "\t11 & 8/30/84 & 6 & 70 & 200 & 1\\\\\n", "\t14 & 1/24/85 & 6 & 53 & 200 & 2\\\\\n", "\t21 & 10/30/85 & 6 & 75 & 200 & 2\\\\\n", "\t23 & 1/12/86 & 6 & 58 & 200 & 1\\\\\n", "\\end{tabular}\n" ], "text/markdown": [ "\n", "A data.frame: 7 × 5\n", "\n", "| | Date <fct> | Count <int> | Temperature <int> | Pressure <int> | Malfunction <int> |\n", "|---|---|---|---|---|---|\n", "| 2 | 11/12/81 | 6 | 70 | 50 | 1 |\n", "| 9 | 2/03/84 | 6 | 57 | 200 | 1 |\n", "| 10 | 4/06/84 | 6 | 63 | 200 | 1 |\n", "| 11 | 8/30/84 | 6 | 70 | 200 | 1 |\n", "| 14 | 1/24/85 | 6 | 53 | 200 | 2 |\n", "| 21 | 10/30/85 | 6 | 75 | 200 | 2 |\n", "| 23 | 1/12/86 | 6 | 58 | 200 | 1 |\n", "\n" ], "text/plain": [ " Date Count Temperature Pressure Malfunction\n", "2 11/12/81 6 70 50 1 \n", "9 2/03/84 6 57 200 1 \n", "10 4/06/84 6 63 200 1 \n", "11 8/30/84 6 70 200 1 \n", "14 1/24/85 6 53 200 2 \n", "21 10/30/85 6 75 200 2 \n", "23 1/12/86 6 58 200 1 " ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "data = data[data$Malfunction>0,]\n", "data" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "Très bien, nous avons une variabilité de température importante mais\n", "la pression est quasiment toujours égale à 200, ce qui devrait\n", "simplifier l'analyse.\n", "\n", "Comment la fréquence d'échecs varie-t-elle avec la température ?" ] }, { "cell_type": "code", "execution_count": 3, "metadata": {}, "outputs": [ { "data": { "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAC+lBMVEUAAAABAQECAgIDAwME\nBAQFBQUGBgYHBwcICAgJCQkKCgoLCwsMDAwNDQ0ODg4PDw8QEBARERESEhITExMUFBQVFRUW\nFhYXFxcYGBgZGRkaGhobGxscHBwdHR0eHh4fHx8gICAhISEiIiIjIyMkJCQlJSUmJiYnJycp\nKSkqKiorKystLS0uLi4vLy8wMDAxMTEyMjIzMzM0NDQ1NTU2NjY3Nzc4ODg5OTk6Ojo7Ozs8\nPDw9PT0+Pj4/Pz9AQEBBQUFCQkJDQ0NERERFRUVGRkZHR0dISEhJSUlKSkpLS0tMTExNTU1O\nTk5PT09QUFBRUVFSUlJTU1NUVFRVVVVWVlZXV1dYWFhZWVlaWlpbW1tcXFxdXV1eXl5fX19g\nYGBhYWFiYmJjY2NkZGRlZWVmZmZnZ2doaGhpaWlqampra2tsbGxtbW1ubm5vb29wcHBxcXFy\ncnJzc3N0dHR1dXV2dnZ3d3d4eHh5eXl6enp7e3t8fHx9fX1+fn5/f3+AgICBgYGCgoKDg4OE\nhISFhYWGhoaHh4eIiIiJiYmKioqLi4uMjIyNjY2Ojo6Pj4+QkJCRkZGSkpKTk5OUlJSVlZWW\nlpaXl5eYmJiZmZmampqbm5ucnJydnZ2enp6fn5+goKChoaGioqKjo6OkpKSlpaWmpqanp6eo\nqKipqamqqqqrq6usrKytra2urq6vr6+wsLCxsbGysrKzs7O0tLS1tbW2tra3t7e4uLi5ubm6\nurq7u7u8vLy9vb2+vr6/v7/AwMDBwcHCwsLDw8PExMTFxcXGxsbHx8fIyMjJycnKysrLy8vM\nzMzNzc3Ozs7Pz8/Q0NDR0dHS0tLT09PU1NTV1dXW1tbX19fY2NjZ2dna2trb29vc3Nzd3d3e\n3t7f39/g4ODh4eHi4uLj4+Pk5OTl5eXm5ubn5+fo6Ojp6enq6urr6+vs7Ozt7e3u7u7v7+/w\n8PDx8fHy8vLz8/P09PT19fX29vb39/f4+Pj5+fn6+vr7+/v8/Pz9/f3+/v7///9puzMQAAAA\nCXBIWXMAABJ0AAASdAHeZh94AAAgAElEQVR4nO3dC3SU5b3v8WdIhksgICi3cAlotbUtETxc\nWvBQo2WrWPTUgtgqEVqsgMZdVKBFQLywd2i1anW70b29HbcepFGPp8IRkSpFYQOixeIlokes\nQUESLZdwCXnXOnNLJoT0ncl+f7zv+8TvZy0zz5p5JvzX63xXkrkaB4BnJugBgNaAkAABQgIE\nCAkQICRAgJAAAUICBAgJECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJ\nECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJECAkQICQAAFCAgQICRAg\nJECAkAABQgIECAkQICRAgJAAAUICBAgJECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRA\ngJAAAUICBAgJECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJECAkQICQ\nAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJECAkQICQAAFCAgQICRAgJECAkAAB\nQgIECAkQICRAgJAAAUICBAgJECAkQICQAAFCAgQICRDwIaQ3NgJWeaPlt/LjH9IGA1hmQ4tv\n5sc/pLXm4HH/NwChg2Zti69DSEAThAQIEBIgQEiAACEBAoQECBASIOB3SHXbVpaXr9qeYRch\nwTL+hlQ1s0fyUeD+C/e77SMkWMbXkCoHmlNL5peVzZ1YYAZVuWwkJFjG15CmRJemVrX3Rkpd\nNhISLONrSL0mp9cT+rlsJCRYxteQorel1wvaumwkJFjG15AKx6fX4wa4bCQkWMbXkEojiw8k\nV3vnmVkuGwkJlvE1pOrBJr+4ZMb0SaPzzKg9LhsJCZbx93Gkg3cU5cQfRooOX1Lrto+QYBnf\nnyJU896mTRWZMiEkWIbn2gEChAQIBBXS+8XFTc45snplg98SEuwSVEibTdPv8kH3rg3yzF7B\nvwH4JqiQarZscbn0fuN25zgQOuH8G4mQYJnAQvq8wuVCQoJlAgtpltt3ISRYhpAAAUICBHwN\naUgjvQgJrYivIbVp065BDiGhFfE1pFn56bvq+NUOrYmvIR0648xD9WtCQmvi750NWztcX78k\nJLQmPt9r9+Xu+tUfF7lsIyRYhqcIAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBAS\nIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBA\nSIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiA\nACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAh\nAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEC\nhAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIBAICEdemvjAdcNhATL+BvSqtED\nzlvnrCgwpvO9bvsICZbxNaRXc03nNh1f7dzvivFdzXKXjYQEy/ga0oW93nR2fq//oP2OUzXg\nH1w2EhIs42tIJ94S+7LBPBxf39rNZSMhwTK+hpT7aOxLpflDfP1vuS4bCQmW8TWknvNjX/5o\n7oqvf9nTZSMhwTK+hnRpt5cO/vlb3+j/V8fZ2vUSl42EBMv4GtLb+caYblsL8743IjdnvctG\nQoJl/H0cacvEYSXvOFuGRszJz7jtIyRYJpinCO3Z6X45IcEyPNcOECAkQCCokN4vLm5yTtW0\nqQ1GERLsElRIm03T70JIsFhQIdVs2eJyKb/awTL8jQQI+B1S3baV5eWrtmfYRUiwjL8hVc3s\nYRL6L9zvto+QYBlfQ6ocaE4tmV9WNndigRlU5bKRkGAZX0OaEl2aWtXeGyl12UhIsIyvIfWa\nnF5P6OeykZBgGV9Dit6WXi9o67KRkGAZX0MqHJ9ejxvgspGQYBlfQyqNLE69n93eeWaWy0ZC\ngmV8Dal6sMkvLpkxfdLoPDPKLRVCgmX8fRzp4B1FOfGHkaLDl9S67SMkWMb3pwjVvLdpU8XB\nDJsICZbhuXaAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQE\nCBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQ\nEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIg\nQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBI\ngAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQJeQ1qzO7VYv0wy\nTxIhwTJeQzJPpxa/7iqZJ4mQYBlPIVUsX27mLU8oH5onnIqQYBlPIS0yjVwinIqQYBlvv9pV\nPmsuX5RQtuyQcCpCgmW8/o10wWu6WdIICZbh7m9AwGtIdUvHFn0zSTcUIcE2XkNabExelyTd\nUIQE23gNqe+YbS2+fu2f125330FIsIzXkKLrWnLNtdNjXx7raYwZ9LLbPkKCZTz/RGrJvXar\n23aqc54ynX407dw27Ta6bCQkWMZrSDdMa8EVR/eocJyBhZWx5boOF7psJCRYxmtIe8ZctmJr\nRULmK3a+3nG+MHcl1j87wWUjIcEynp+0mpb5ih1vcpwDkd8n1je3d9lISLCM15AmTppSL/MV\nv3vqPsf5zvXx5YFBg1w2EhIs4+szG54zg//v4U29H9l3aN3Z5l9dNhISLOPvU4Qe6Gg6nF5o\ncnJM5Bd1LvsICZbxGlJxg1HZXPXTxWMK89udOOTaTa7bCAmWkd3ZkF+gG4qQYBuvIR1O2PfW\n9Wd9qRuKkGAb2d9Is3/ueZY0QoJlZCG91rJf7d4vLm5yzgfduzbIM39r8VRAgGQhvdCyNz/Z\nfMwDuEdWr2xQyk8k2MVrSNVJO1cXteyFfTVbtrhcyq92sIzuKUKP6YYiJNjG85ufJF109YvZ\nXbdu28ry8lUZXtdHSLCNv89sqJrZI/njq//C/W77CAmWEYS069WV66qzumLlQHNqyfyysrkT\nC8ygKpeNhATLeA5pzbD4T5hIsdt9B/WmRJemVrX3RkpdNhISLOM1pPXtckZOmXHlsEjndzJf\nsdfk9HpCP5eNhATLeA3pwr5vJ05f7zEx8xWjt6XXC9q6bCQkWMZrSCfenlos6Jn5ioXj0+tx\nA1w2EhIs4zWk3EdTi4ejma9YGll8ILnaO8/MctlISLCM15AK5qQWN/bJfMXqwSa/uGTG9Emj\n88wot1QICZbxGlJJp2fiL3WtK+/402z+tTuKcuJ38kWHL6l120dIsIzXkD7sYXqdfeHZvUzv\nj7O7cs17mzZVHMywiZBgGc+PI22f1CX2I6bbTytlIzmEBOsIntlQV1mxQzRNPUKCZTyG9Nmr\nydPfZfccoWwREizjLaSXTzgncfqm6dPyT3dxQUiwjKeQKk/KTT4eW3d3m1NrdEMREmzjKaSb\nzQP1yzvN/aKJ4ggJlvEU0uBTjtQvD/cdLpoojpBgGU8hnXRZ+sxL8iXzJBESLOMppLbXpM+8\nyu3Z3C1FSLCMp5B6j0uf+b0snmuXNUKCZTyF9INOn9cvK3J/KJoojpBgGU8hPWUuPpxcfTnU\nPCebiZBgHU8h1Z1jhpT/zXF2PlhoLlZORUiwjLdnNlSfZ0zkhHxjzATXt9dqKUKCZbw+afX5\niSd3zP/6la/oJoojJFjG3zeIzBYhwTJeQrp7q3aWNEKCZbyEZEzBFY9KX9BXj5BgGS8hffTg\nhO7GnH7t/5Z/KhghwTIe/0aqe73s3A4m9zvzXjkkHIqQYBvBnQ0HXpw9pI3pdL5oojhCgmVE\n99rtXjp1oGCaeoQEy3D3NyDgNaS6pWOLvpmkG4qQYBuvIS02Jq9Lkm4oQoJtvIbUd4z07YNS\nCAmW8RpSdJ1uljRCgmU8/0R6TTdLGiHBMl5DumGabpY0QoJlvIa0Z8xlK7ZWJOiGIiTYxmtI\nJk03FCHBNl5DmjhpSj3dUIQE2/DMBkBAENKuV1eu036qCyHBNp5DWjMs/vdRpHiLbCSHkGAd\nryGtb5czcsqMK4dFOr+jG4qQYBuvIV3Y9+3E6es9JoomiiMkWMZrSCfenlos6CmZJ4mQYBmv\nIeU+mlo8HJXMk0RIsIzXkArmpBY38mkU+ArzGlJJp2fqYid15R1/KpuJkGAdryF92MP0OvvC\ns3uZ3h/rhiIk2Mbz40jbJ3UxxnT7qfSNIgkJlhE8s6GusmKHaJp6hATLeAlpR1XsvzThVIQE\ny3h67+8xvIwCSPAS0oRFsf/ShFMREizDyygAAa8hrdmdWqxfJpkniZBgGc8vNX86tfh1V8k8\nSYQEy3gKqWL5cjNveUL50DzhVIQEy3gKaVGj++zMJcKpCAmW8farXeWz5vJFCWXLlJ80Rkiw\njNe/kS7gnVYBxd3fb+2Kf3ldNE8SIcEyXkM6NNmsjp3cY0pqVSM5hATreA3pN+aCD2In70ww\nv5XNREiwjteQvjU2tTj/a5J5kggJlvEaUoffpBZlvGcDvsK8htTzmtRiGu8ihK8wryFNzvtD\n/OTQktzLVSM5hATreA2psrfpf+7Ykd1M7490QxESbOP5caRPf36iMab7z/4qG8khJFhH8Z4N\nn7y/VzRNPUKCZXhhHyDgNaS6pWOLvpmkG4qQYBuvIS02Jq9Lkm4oQoJtvIbUd8w23TANCAmW\n8RpSdJ1uljRCgmU8/0Ti9UiA95BumKabJY2QYBmvIe0Zc9mKrRUJuqEICbbx/HZcvGUx4D2k\niZOm1NMNRUiwDc9sAAQICRDwGlJxg1G6oQgJtpHd2ZBfoBuKkGAbryEdTtj31vVnfakbipBg\nG9nfSLN/7nmWNEKCZWQhvcavdvgKk4X0Ah/rgq8wryFVJ+1cXcQL+/AVpnuK0GO6oQgJtvH8\nsS5JF139om4mQoJ1eGYDIOAlpF+scpyr3viv/Ktfznrb9XJCgmW8hNRmUaNPNW+Rj81zrpcT\nEizjJaTeJ0ybZf7HrHqZr9jwiouJ5vuuL7sgJFjGS0iPtW/8qeZZ/OVkst1PSLCMpzsbqjes\nMbevqZf5iv+YU7Qi8bDTX8yT1dUuGwkJlvF6r92YV1tyzQ1Fkau/cPgbCa2Ol5A+Plo2Vz38\nTx0KlhESWh0vIZms/+Zp5P1ic+F2QkIr4yWkCUfL9uoPdes0n5DQusie2bB3R9bX/+xSQ0ho\nXWQhPd67Bd/h+ZlbXS8nJFjGc0i77plZGnNVn3zZTIQE63gN6cPuqbsacm/WDUVIsI3XkH6c\n/7tV5sEVs/usaNn3eL+4uMk5R1avbFBKSLCL15D6z3ZqzGuOs7nbn1r0PTYfc3f5B927Nsgz\nf2vxVECAPH/Q2JLYt3g5trip6U8YdzVbtrhcyq92sIzXkLrd4jidHootnuAzZPEV5jWkcX1W\nOyPOjN3sf9Yjq+vWbVtZXr5qe4ZdhATLeA1pffshzr+bfhcXmR9ncc2qmT2S9/H1X7jfbR8h\nwTKeH0faeJ9TN6eDifxgV+YrVg40p5bMLyubO7HADKpy2UhIsIzmmQ01H7r+gKk3Jbo0taq9\nN1LqspGQYBlf30Wo1+T0ekI/l42EBMt4CunwUTJfMXpber2grctGQoJlPIXU0tcjFY5Pr8cN\ncNlISLCMt5Byzri0Ja9HKo0sPpBc7Z1n3N51iJBgGU8hXdfDFN7wVvZXrB5s8otLZkyfNDrP\njHJLhZBgGW93Nhx+7pJ2ZsjdWdzznfrX7ijKif8WGB2+pNZtHyHBMp7vtau+f4SJXvT0oWyv\nXPPepk0VBzNsIiRYRnH3d8VNA8xJ12zUDJRASLCM5nGkupfPyvZdhLJCSLCMIqQjKy7taL62\nUDNQAiHBMt5Demd2H5N/5SuqgRIICZbxGFL1/cNNZPQj+4QTxRESLOMppBWXtjcDF3yonCeJ\nkGAZj89sGHHz/3munnAqQoJlfH2uXdYICZbxFNJjRxFORUiwDJ9qDggQEiBASIAAIQEChAQI\nEBIgQEiAACEBAoQECBASIGBXSPuevvXWp9Wv2QCy5HL7syqkFT07jxzZuWcLP2UT0HC7/dkU\n0oZ2N+53nP03tlO+zwqQJdfbn00hjUm9mev4Mcd9AOAYrrc/i0I6kLsyuXgheuC4TwA04X77\nsyikT8y7ycW75pPjPgHQhPvtz6KQ9rdJvVXRy22y+lgzQMn99mdRSM7IqcnTqSOP+wDAMVxv\nfzaF9GLu3XWOU3dX7qrjPgBwDNfbn00hOY/knTJhwsl5jx73fx9ohtvtz6qQnB33XHXVPTuO\n+z8PNMvl9mdXSEBIERIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIg\nQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBI\ngAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAA\nIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgEFlLVhy4XEhIs429Ib55fOPLe2sRy\nltt3ISRYxteQ/tTO5EXNf6+KrwkJrYmvIV0QfbruwB3R/7bXISS0Lr6G1O8n8a+r2p5fS0ho\nXXwNKTovcfKouZaQ0Lr4GlLfHyRP55gyQkKr4mtI10buORQ/rZtkrruGkNCK+BrS5/3NOYlF\n3bXGEBJaEX8fR9o17brU6venEBJaEZ4iBAgQEiBASIBAUCG9X1zc5JyqaVMbjCIk2CWokDYf\nc68dIcFiQYVUs2WLy6X8agfL8DcSIOB3SHXbVpaXr9qeYRchwTL+hlQ1s4dJ6L9wv9s+QoJl\nfA2pcqA5tWR+WdnciQVmUJXLRkKCZXwNaUp0aWpVe2+k1GUjIcEyvobUa3J6PaGfy0ZCgmX8\nfWHfben1grYuGwkJlvE1pMLx6fW4AS4bCQmW8TWk0sjiA8nV3nlmlstGQoJlfA2perDJLy6Z\nMX3S6Dwzyi0VQoJl/H0c6eAdRTnxh5Giw5fUuu0jJFjG96cI1by3aVPFwQybCAmW4bl2mWwc\nf3K7b5d+2vyFW684td03pv4/fydyc+jOEZ27Fz8R9BgSa7/RzkRP+UPQY2SHkDJ4LHrxvy2/\n69u9tjZ34fMdzl2y/N4RXdb5PdXfs++s7vOeWXpthyl1QU/i3QOR/Am3XH6iWRj0IFkhJHcf\ntP9t/OTQuKIjx174eddfxk+OTCl0feagj35R+Nf4yYaOjwQ9iWe7c087HD8dEXkv6FGyQUju\n5g5OnlbmvHLshXf3T/yvdvZ0fsrHkVwc7Px4cnHj0GAHEfjHSPLX6ZrcHwU8SVYIyd0FM1OL\nb9117IWTf5JanPMrv+Zx97bZkVysaGf973bf6ZZaDDwt0DmyREjuvj8ntRjy62MvvLz+uYPn\n3+DXPO7+bHYnFy/luD68YIOh3VOL004OdI4sEZK7a8YkT/d1fO7YC28pSp4eKXjQv4nc/K3t\nC8nFr78e7CACV+Qkf292OpwT7CDZISR369usSpzO7t3M/QkV0ScTp3fm7/JzJhfjv5N4iO6z\nPrcGPYln70YuTpxeY14MeJKsEFIGMzv+89bqdVdGm304o6ztTW9+uak0JzT3kW3vO+IPOz96\n4uRhYbkb0YOppujxvz410lwQ9CBZIaQM6v61vzGR4X9q/tInTzPGDFru70huPpnQ1pj86/YG\nPYfCwg6xg9vW7QWgIUJImX32hss0uzd/4d8k2Ti0dVszD3nZafuT7wc9QrYICRAgJECAkAAB\nQgIECAkQICRAgJAAAUICBAgJECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUIC\nBAgJECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJECAkQICQAAFCAgQI\nCRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQ\nICRAgJAAAUICBAgJECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJECAk\nQICQAAFCAgQICRAgJECAkAABQgIE/A6pbtvK8vJV2zPsIiRYxt+Qqmb2MAn9F+5320dIsIyv\nIVUONKeWzC8rmzuxwAyqctlISLCMryFNiS5NrWrvjZS6bCQkWMbXkHpNTq8n9HPZSEiwjK8h\nRW9Lrxe0ddlISLCMryEVjk+vxw1w2UhIsIyvIZVGFh9IrvbOM7NcNhISLONrSNWDTX5xyYzp\nk0bnmVFuqRASLOPv40gH7yjKiT+MFB2+pNZtHyHBMr4/RajmvU2bKg5m2ERIsAzPtQMECAkQ\nCCqk94uLm5zzQfeuDfLMXsG/AfgmqJA2m6bf5cjqlQ1+azL9FQWESlAh1WzZ4nLpWkKCXcL5\nNxIhwTLhfGEfIcEy4XxhHyHBMuF8YR8hwTLhfGEfIcEy4XxhHyHBMuF8YR8hwTLhfGEfIcEy\n4XxhHyHBMuF8YR8hwTLhfGEfIcEy4XxhHyHBMjzXDhAgJECAkAABQgIECAkQICRAgJAAAUIC\nBMIZ0gYDWGZDi2/mxz8k542NctcWPhYybWYHPUETY78d9ARN3GcWBT1CE2f9w9+7fb3R8lu5\nDyEdB3ecEfQETeW8GPQETcw6L+gJmthl3N60LQglJcJvRkgahJQJIYUQIWVESBkREiFlRkgZ\nERIhZUZIGRESIWVGSBkREiFlRkgZERIhZUZIGRESIWVGSBkREiFlRkgZEZLzu2FBT9BUh1eC\nnqCJm8YFPUETX0TeDXqEJqZOFX4zO0Oq+SToCZr6oC7oCZrY81nQEzS1LegBmqpy+xCVlrIz\nJCBkCAkQICRAgJAAAUICBAgJECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAatC\neij1WQG3HLUM1vNnderyvdXxVXVpYbT3lMpgx2k0UEgOUbv6T3j4MCSHqNFAwkNkVUh3momz\n4l46ahmofzenzL2+e9u1jnNwsPnhbZOjA5Uvu/Q0UEgO0dzEELMGtN8dkkPUaCDhIbIqpPnp\nz62Z/1/4CJvj4LNOZ+x1nIpO0xznDvPPsTP+l5kZloFCcoiSNubcGpZDlJQYSHiIrAqp1FQ0\nswzSYrMifhJ/w4ai/APx5dd6BPruDY0GCskhSqg94xsHw3KIEpIDCQ+RVSFNMrtqP97VdBmk\nMR0OOQe+jK9qcooT55SYQN/kIz1QWA5Rwp1mdWgOUUJiIOUhsiqki8yvuhpz2uNHL4NUePrr\n342YUx5ynPdM8l3S5puV4RgoLIcobm/3eEIhOURxyYGUh8iqkEabkxc9Oqezuf+oZZDyC3vP\nXHZXf/O4s8lMT5yz2JSHY6CwHKK4fzLxt/0LySGKSw6kPERWhbRqWewPaecv7bodbLwMUjvz\nSOxrZadetZvMjMQ5ZebpcAwUlkMUs/+ks+InITlETsNAykNkVUgpF5v/bGYZiBNz9sVPfmT+\nXGEmJc6ZawJ98+L0QPXnBH2IYv5nom4nJIfIaRionuIQ2RjSVealZpaBGJJzKH4yzaw9mDs6\ncc5E81E4Bqo/J+hDFHNhTnX8JCSHyGkYqJ7iENkU0p77/iNxOtJsa7QMciJnhlkXP/m+2e4M\ny4v/LDhS0C8kA4XlEMUC6nhmchGOQ5QeSHmIbArpSJ9Ob8dOnjFnNF4GamPk7AOOs6HNtx1n\niVkQO+NfzM0hGSgsh8hxNpspyUU4DlF6IOUhsikk59lIxyk3XRzpvOmoZaCuM0U3/6xD29WO\nUzvKjLv50si39oVloLAcIudJc2tyEZJDlB5IeIisCsl59bwTcguuqGiyDFLd/YPadzk/8bfq\nnusLo32m7w7PQCE5RLEfQXelVuE4RI0G0h0iu0ICQoqQAAFCAgQICRAgJECAkAABQgIECAkQ\nICRAgJAAAUICBAgJECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJECAk\nQICQAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUIKgZmmwXcV329R8B93+ZVDSCHwbGnM\niWZG7OtdmXdnVGmWC74LWoSQwuKbpkb0nZ4lJP8RUlikQvp0Wv/oSePin0o+0VRP7dFh2Pp9\npQUdR8Q/wP4iUzmlR9uv33f0tgnms3PaP+s46y86MVr4kw8d54L4r4hrYifVsUsPm+L0lvSV\noEZIYZEMaWdhl1mP3d633R8dZ5I55+bXH27ff+ysjctO6Hko3sPQWWvXnGseOGrb5eay827f\n4mxsX7Bwyez8Hp87r11u5j29u3FIqS2NrgQ1QgqLZEhX526Ifd2ef6bjTDFXx5bjzSWxr6Vm\nbTykibHlF+0GHLVtsvn+kdj6vsGrY1/vMfc4zqLEr3aNQkptaXQlqBFSWCRCqjtp8I64MWZP\nLKSVsbN/ZR6Lfb3PLIuH9Gx84zmm8uhtj9d/i0M1q8zMZkJKbml8JagRUlgkQvq04X7wv8Ru\n/ltjZ883L8W+PmCeiIf0dnzjJPP60ds2Jq7/6FknxM8obTak+JbGV4IaIYVFIqQKU7Q8qTp2\n848/HDTfrHEaQvoovnGaeenYbc4cc+ZDf3ztwb8TUnxL4ytBjZDCIvUTqajhjGZCiv+Icn5s\n3jx2W02HfvFf2FY0DWlfOqTGV4IaIYVF8s6Gk9onflzsdJoN6ffxy4aancdu+9BcHD9jTjqk\ni0z80rfSITW+EtqClZMAAAEtSURBVNQIKSxS99qZX8a+7uw1ttmQLogt3418vZlt+yNnxL5u\n7mOucpwyU574Ti/Hvt7YKKRGV4IaIYVFMqTP+psrH769f/SFZkM6Z+z99w2I3wV3zDZnrLnq\niZu6Pp/b9z/2LjNDf/OfzmtmyEvr5ozKT4fU6EpQI6SwSD2zYcfV/XJP+MF6p9mQKq4raHv6\nw81tc3Ze1r3L2Wucmzv12nHohx26PuU4D5/eoefULwpGNmxpdCWoEZI9JpiPgx4Bfw8h2YOQ\nQoyQ7EFIIUZI9iCkECMkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJECAk\nQICQAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJECAkQICQAAFCAgT+P9FRuQB/\nRTZ+AAAAAElFTkSuQmCC", "text/plain": [ "plot without title" ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "plot(data=data, Malfunction/Count ~ Temperature, ylim=c(0,1))" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "À première vue, ce n'est pas flagrant mais bon, essayons quand même\n", "d'estimer l'impact de la température $t$ sur la probabilité de\n", "dysfonctionnements d'un joint." ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "## Estimation de l'influence de la température\n", "\n", "Supposons que chacun des 6 joints toriques est endommagé avec la même\n", "probabilité et indépendamment des autres et que cette probabilité ne\n", "dépend que de la température. Si on note $p(t)$ cette probabilité, le\n", "nombre de joints $D$ dysfonctionnant lorsque l'on effectue le vol à\n", "température $t$ suit une loi binomiale de paramètre $n=6$ et\n", "$p=p(t)$. Pour relier $p(t)$ à $t$, on va donc effectuer une\n", "régression logistique." ] }, { "cell_type": "code", "execution_count": 5, "metadata": {}, "outputs": [ { "data": { "text/plain": [ "\n", "Call:\n", "glm(formula = Malfunction/Count ~ Temperature, family = binomial(link = \"logit\"), \n", " data = data, weights = Count)\n", "\n", "Deviance Residuals: \n", " 2 9 10 11 14 21 23 \n", "-0.3015 -0.2836 -0.2919 -0.3015 0.6891 0.6560 -0.2850 \n", "\n", "Coefficients:\n", " Estimate Std. Error z value Pr(>|z|)\n", "(Intercept) -1.389528 3.195752 -0.435 0.664\n", "Temperature 0.001416 0.049773 0.028 0.977\n", "\n", "(Dispersion parameter for binomial family taken to be 1)\n", "\n", " Null deviance: 1.3347 on 6 degrees of freedom\n", "Residual deviance: 1.3339 on 5 degrees of freedom\n", "AIC: 18.894\n", "\n", "Number of Fisher Scoring iterations: 4\n" ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "logistic_reg = glm(data=data, Malfunction/Count ~ Temperature, weights=Count, \n", " family=binomial(link='logit'))\n", "summary(logistic_reg)" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "L'estimateur le plus probable du paramètre de température est 0.001416\n", "et l'erreur standard de cet estimateur est de 0.049, autrement dit on\n", "ne peut pas distinguer d'impact particulier et il faut prendre nos\n", "estimations avec des pincettes." ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "## Estimation de la probabilité de dysfonctionnant des joints toriques\n", "\n", "La température prévue le jour du décollage est de 31°F. Essayons\n", "d'estimer la probabilité de dysfonctionnement des joints toriques à\n", "cette température à partir du modèle que nous venons de construire :" ] }, { "cell_type": "code", "execution_count": 6, "metadata": {}, "outputs": [ { "data": { "image/png": "iVBORw0KGgoAAAANSUhEUgAAA0gAAANICAMAAADKOT/pAAAC/VBMVEUAAAABAQECAgIDAwME\nBAQFBQUGBgYHBwcICAgJCQkKCgoLCwsMDAwNDQ0ODg4PDw8QEBARERESEhITExMUFBQVFRUW\nFhYXFxcYGBgZGRkaGhobGxscHBwdHR0eHh4fHx8gICAhISEiIiIjIyMkJCQlJSUmJiYnJyco\nKCgpKSkqKiorKyssLCwtLS0uLi4vLy8wMDAxMTEyMjIzMzM0NDQ1NTU2NjY3Nzc4ODg5OTk6\nOjo7Ozs8PDw9PT0+Pj4/Pz9AQEBBQUFCQkJDQ0NERERFRUVGRkZHR0dISEhJSUlKSkpLS0tM\nTExNTU1OTk5PT09QUFBRUVFSUlJTU1NUVFRVVVVWVlZXV1dYWFhZWVlaWlpbW1tcXFxdXV1e\nXl5fX19gYGBhYWFiYmJjY2NkZGRlZWVmZmZnZ2doaGhpaWlqampra2tsbGxtbW1ubm5vb29w\ncHBxcXFycnJzc3N0dHR1dXV2dnZ3d3d4eHh5eXl6enp7e3t8fHx9fX1+fn5/f3+AgICBgYGC\ngoKDg4OEhISFhYWGhoaHh4eIiIiJiYmKioqLi4uMjIyNjY2Ojo6Pj4+QkJCRkZGSkpKTk5OU\nlJSVlZWWlpaXl5eYmJiZmZmampqbm5udnZ2enp6fn5+goKChoaGioqKjo6OkpKSlpaWmpqan\np6eoqKipqamqqqqrq6usrKytra2urq6vr6+wsLCxsbGysrKzs7O0tLS1tbW2tra3t7e4uLi5\nubm6urq7u7u8vLy9vb2+vr6/v7/AwMDBwcHCwsLDw8PExMTFxcXGxsbHx8fIyMjJycnKysrL\ny8vMzMzNzc3Ozs7Pz8/Q0NDR0dHS0tLT09PU1NTV1dXW1tbX19fY2NjZ2dna2trb29vc3Nzd\n3d3e3t7f39/g4ODh4eHi4uLj4+Pk5OTl5eXm5ubn5+fo6Ojp6enq6urr6+vs7Ozt7e3u7u7v\n7+/w8PDx8fHy8vLz8/P09PT19fX29vb39/f4+Pj5+fn6+vr7+/v8/Pz9/f3+/v7///8D/m+7\nAAAACXBIWXMAABJ0AAASdAHeZh94AAAgAElEQVR4nO3de3yU1YGH8ROSEAh35CYKAV231q5C\nsVWsgLihXlop1guI1YKw4gpqWrHNqhQUpVrY4loX14JXtGsthrq21ZoiXhYvhYiKghDRCoqC\nJVHkFgx5PzvnHUh2WXhTM7/3vHPC8/1j5m1yZs6Z6XnC3GJMACBjJukFAM0BIQEChAQIEBIg\nQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBI\ngAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAA\nIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEB\nAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKE\nBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQI\nEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiDgIKRXlwFeefWL7/L4Q1pqAM8s/cLbPP6Q\nlpia2OcAhGrMki98GUIC9kFIgAAhAQKEBAgQEiBASIAAIQECrkOqW1teVrZoXSOjCAmecRtS\n1eRu6XeBe0/fHjWOkOAZpyFt6GuOGjtt5swpo3uaflURAwkJnnEa0vj8R/Yc1c7JKYkYSEjw\njNOQeoxrOB7VK2IgIcEzTkPKn9FwfEPLiIGEBM84DaloZMPxiD4RAwkJnnEaUknOrJ3po61T\nTWnEQEKCZ5yGVD3AtCsee8WkMUMLzeDPIgYSEjzj9n2kmtn9c+3bSPkD59ZGjSMkeMb5R4R2\nrKmoqGwsE0KCZ/isHSBASIBAUiG9XVy8z1d2Ly6v92+EBL8kFdJys++1vNO1U71Cs1UwB+BM\nUiHtWLEi4rt3magXx4Gsk53PkQgJnkkspL9WRnyTkOCZxEIqjboWQoJnCAkQICRAwGlIx/8v\nPQgJzYjTkFq0KKiXS0hoRpyGVNqu4aU6HtqhOXEa0q6vfm3X3mNCQnPi9sWGla2v2XtISGhO\nHL9q9+nmvUfP3BIxjJDgGT4iBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAh\nAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEC\nhAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQE\nCBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQ\nEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIg\nQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQECiYS0641lOyMHEBI84zakRUP7nPlS\n8GRPY9rPiRpHSPCM05BeyDPtW7R5oX2v74/sZJ6IGEhI8IzTkIb3eC3YdGrvftuDoKrPGRED\nCQmecRrSITelTpaa++zxzZ0jBhISPOM0pLwHUicbzO/t8d15EQMJCZ5xGlL3aamTZ8zt9vi6\n7hEDCQmecRrSBZ2frnn92C/3fj8IVnY6L2IgIcEzTkNa1c4Y03llUeGpJ+XlvhwxkJDgGbfv\nI60YfeLYt4IVJ+SYI34bNY6Q4JlkPiL02abo7xMSPMNn7QABQgIEkgrp7eLifb5SNXFCvcGE\nBL8kFdJys++1EBI8llRIO1asiPguD+3gGZ4jAQKuQ6pbW15WtmhdI6MICZ5xG1LV5G4m1Hv6\n9qhxhATPOA1pQ19z1NhpM2dOGd3T9KuKGEhI8IzTkMbnP7LnqHZOTknEQEKCZ5yG1GNcw/Go\nXhEDCQmecRpS/oyG4xtaRgwkJHjGaUhFIxuOR/SJGEhI8IzTkEpyZu3579ltnWpKIwYSEjzj\nNKTqAaZd8dgrJo0ZWmgGR6VCSPCM2/eRamb3z7VvI+UPnFsbNY6Q4BnnHxHasaaiorKmkUGE\nBM/wWTtAgJAAAUICBAgJECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJ\nECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJECAkQICQAAFCAgQICRAg\nJECAkAABQgIECAkQICRAgJAAAUICBAgJECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRA\ngJAAAUICBAgJECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJECAkQICQ\nAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJECAkQICQAAFCAgQICRAgJECAkAAB\nQgIECAkQICRAgJAAAUICBJIIqfb1JeuiRxASPOM2pCWTUifzuxtj+j0bNY6Q4BmnIS1u2bYu\n+I1pe/7Eb7YoWBYxkJDgGachDe1WGQR9izakDl9qPTxiICHBM05Dan9NEHxibg+PL+0YMZCQ\n4BmnIbX5SRDszHk0PL6xVcRAQoJnnIZ08lHbguAb19jDnf36RQwkJHjGaUiPmwF//Lzi0Pu3\n7XrpH80vIwYSEjzj9uXveW1M62OKTG6uybm6LmIcIcEzjt+Q/WjW6UXtCg45/qqKyGGEBM/w\nESFAgJAAAUICBJIK6e3i4n2+8k7XTvUKzRbBHIAzSYW03Ox7LbsXl9cr4V8k+CWpkHasWBHx\nXR7awTM8RwIEXIdUt7a8rGxRI7/XR0jwjduQqiZ3M6He07dHjSMkeMZpSBv6mqPGTps5c8ro\nnqZfVcRAQoJnnIY0Pv+RPUe1c3JKIgYSEjzjNKQe4xqOR/WKGEhI8IzTkPJnNBzf0DJiICHB\nM05DKhrZcDyiT8RAQoJnnIZUkjNrZ/po61RTGjGQkOAZpyFVDzDtisdeMWnM0EIzOCoVQoJn\n3L6PVDO7f659Gyl/4NzaqHGEBM84/4jQjjUVFZU1jQwiJHiGz9oBAoQECBASIEBIgAAhAQKE\nBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQI\nEBIgQEiAACEBAoQECGQa0pC51brF1CMkeCbTkHJMwTlljf2nvL8wQoJnMg1p/W0n5ZhOE56r\n0y0pICR4R/AcKWyp6LqVohVZhATPaF5sWH/bkDzlSxCEBM9oQqp64MLOhISDmCCkjb88Lc90\nuOQp0YosQoJnMg3p/TuG5prW55Xt1C0pICR4J/OXv/POuH+Lbj1phATPZBrSoDmbdIupR0jw\nDB8RAgQyDql2yYL/TJOtiZDgnUxDWtbH7KVbFCHBN5mGNLBjyZ3z0nSLIiT4JtOQ2izUraUB\nIcEzmYbUvUK3lgaEBM9kGtKV1+rW0oCQ4JlMQ9o2/PwHn34+pFsUIcE3mYb0ci9etQMyDumE\nViOvn5amWxQhwTeZhtRqvm4tDQgJnsk0pEOW69bSgJDgmUxD+qebdGtpQEjwTKYhVQ+bWL6y\nMqRbFCHBN5mGZAyv2gEZhzR6zPi9dIsiJPiG30cCBDIN6bE3dGtpQEjwTMbvI92qW0sDQoJn\nMg1p2Jm7dYupR0jwTKYhfTT6jF8t4+VvHOx4+RsQyDSkUReP4+VvgJe/AQFCAgQICRAgJECA\nkAABQgIECAkQICRAgJAAAUICBAgJECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAA\nAUICBAgJECAkQICQAAFCAgQICRBIJqRPS1dFfp+Q4JlkQlpvHo/8PiHBM05Dqv+7zaPNaZF/\nvYKQ4BmnIZn/I2IgIcEzTkP6YW7/J6utN83D1dURAwkJnnH7HGlp/5zLPwl4joRmx/GLDZ/f\n2rrnAkJCs+P8Vbu3i83wdYSEZiaBl7/v7dx2GiGheUnifaSNFxhCQvOSzBuyf5i8MvL7hATP\n8Fk7QICQAIGkQnq7uHifr+xeXF6vhJDgl6RCWv7/PiL0TtdO9QrNFsEcgDNJhbRjxYqI7/LQ\nDp7hORIg4DqkurXlZWWL1jUyipDgGbchVU3ulv4Vit7Tt0eNIyR4xmlIG/qao8ZOmzlzyuie\npl9VxEBCgmfc/oZs/iN7jmrn5JREDCQkeMZpSD3GNRyP6hUxkJDgGach5c9oOL6hZcRAQoJn\nnIZUNLLheESfiIGEBM84DakkZ9bO9NHWqaY0YiAhwTNOQ6oeYNoVj71i0pihhWZwVCqEBM+4\nfR+pZnb/XPs2Uv7AubVR4wgJnnH+EaEdayoqKmsaGURI8AyftQMECAkQICRAgJAAAUICBAgJ\nECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJECAkQICQst+SX1x/31+S\nXoQT2xbefPPCbUmvokkIKdt9cErucd/slXdtXdILid+T3dsPGtS++5NJr6MpCCnL1Rx30jup\ns//qMDXplcRuacGPtwfB9h8XLEt6JU1ASFluXpfN4flvCjYlvJLYnT4qfT7y9GTX0SSElOXO\nuSx9vvuQh5NdSOx25pWnD57K35nsSpqCkLLcyXv/gke/2xNdR/w+MKvTB6vNB8mupCkIKcsN\nvzJ9Xtf9wWQXErvtLZ5LHzzbIvLvomYnQspytx+Wfjm4PPf9hFcSu0ET0ucTBiW7jiYhpCy3\ntWh4depsWc9JSa8kdn/K+0Vd6p/e2/MWJb2SJiCkbPfW0R3OvOSkFhc39ocHmoH7C48cNeqI\nwgeSXkdTEFLWq/n1jy+e8VLSq3Diwzsuu+yOD5NeRZMQEiBASIAAIQEChAQIEBIgQEiAACEB\nAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKE\nBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQI\nEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBAS\nIJBYSFXvRnyTkOAZtyG99q2iQXNqw8PSqGshJCTk86qUj9emVC5LWVqe8tQj1i+t2a8e4HJO\nQ/rvAlOYb06psseEBJFddu9vtnt/7St28z9tN/9jdu/Pt3v/jltTbipNmTwh5dLzrdOHpZx4\nfMqXjkjp3imlwOxfvv1mVzvsiOOPv+sAi3Aa0rfzF9btnJ3/9a0BIR3cauze32i3/hq79Zct\nsnv/Ubv377F7/xd270+3e/9qu/cnjLR7/zS790+we/8Yu6cPs9u7zQH2vulov3u4HfcP9hKD\n7GXPstdykb2+y+xVl9pJbg3/nfm1nfmPdg3/bVfzhl3Y+3aJW//2W+QypF4X2dNFLb9VS0i+\nqbP7qupdu8WW2832rN12v7Mb8FfhXgx35XV2f15pt+oYu2m/a7fvqXYjHx/+PO8a9XM/x36z\nUzjuOHuJwfbCw+3VXGiv8J/tVf9LOMuddr4H7dS/q9/7r9uFvWuXWJ3M/eM0pPyp4dkD5ipC\nil+t3VZ/DR/xvGr32jP1W/+hhq1/bf3WH2f37LnD6n/shw95etrN3fZAP/bb2u/2tOO+ZC9x\nQnjhc+31jLPXeJW97ql2ltnhhOEzjafsKpbY9bxpV/aBXeQnSd9VAk5DOvw76fNrzUxC2o9q\nu6vW2/31ht1pL9s9V77Abr+76x/w/DR8VBI+4LnQbtlv2c17SvhT/0i7pQ+xm7vV37j1vx5u\n/fPs9Yyx13ilve7rGh7y/Kr+x/6zdkHL63/sV9UlfV9lG6chXZVzxy57XjfG/ODK5hBSuKfe\ns9trhd1oLzXs/HvtPry9YedPtPv0YrtjR4SbN9z5R9c/1j/gD/0W9rudwwc8/exFvmEvfGb4\nfDmM6Uf2ym+08/yrnXFe+FP/SbuM5//vIx62frychvTX3mZYeFB3VWqPRAyMK6St9c9x11bY\nffbcPg/0Z9kdOc3uzR+F23S03bDftnt3sN3FA8IN3S3yWW5u+FC/jx3Y317mZHvp086vf7xz\ntb32nzT80G94rL84fNpdaRf3sV3n9ljuAsTD7ftIH0/8wZ6jR49sWkgby8ufCH/qzrO78Of7\n2/jfsVu3+Pj6x/mHh1v7QBvftKl/tHNUeJlT61/gGRVe5zX26m/a55H+7+3Ofybc+WGWf7U7\nf0eT7xd4z7ePCE0zhQ2v6g/Y38afXP8U92fhxn/Ibvzfhg+6wo2/ym78dTzagZRvIQFZiZAA\ngaRCeru4eJ+vVIUvbKUNJiT4JamQlv+/V+0ICR5LKqQdK1ZEfJeHdvAMz5EAAdch1a0tLytb\ntK6RUYQEz7gNqWpyt/S7oL2nR75vT0jwjNOQNvQ1R42dNnPmlNE9Tb+qiIGEBM84DWl8/iN7\njmrn5JREDCQkeMZpSD3GNRyP6hUxkJDgGbe/2Dej4fiGlhEDCQmecRpS0ciG4xF9IgYSEjzj\nNKSSnFk700dbp5rSiIGEBM84Dal6gGlXPPaKSWOGFprBUakQEjzj9n2kmtn9c+3bSPkD59ZG\njSMkeMb5R4R2rKmoqKxpZBAhwTN81q4Z2T1vcOfOg+ftTh1+fHW/gj7nvtzky2dq9fGtTd5h\n9wiuyROE1HzsOrtD6aOPlrY/+/Og8rCvzP7Dvefn3d3Ey2fqT7kFI6aPP9xckvE1+YKQmo+f\ndVltz1Z3mVl3wpnhy6N3tVzdpMtnupLdbbp+as+/Z/6Y6VX5gpCaj6LZ6fOf93m5xXvpw5Ou\nadLlM13JPebF9EG7r2d6Vb4gpGajyuz5kyPLzW1/v+dr1w9r0uWjPlD8t7ho78dWTu6c4TV5\ng5CajY1mZfrgTXPLV/Z87cZTmnT5jRkuZWTBnoNTO2Z4Td4gpGZjd+cH0wfzO/+x4NP04Xcu\nbdLlM33d7lbzfvqgx9EZXpM3CKn5uPLLW+zZli9fWdP7h+FXns99tkmXz3Qln+UNCM/nmF9k\nelW+IKTmY/PRxy784IOyY4/eHJS3vPjF6lX/2m5SEy+fqZ+ZI+b95ffDc47N+Jp8QUjNyObx\nrY1pPd528NLJLYw5/N+/2H+U+X9dPlN3t7d/UGCk4r1dPxBSs1K7Zs3eDzFuffWjjC6fqY2P\nRP0H15odQgIECAkQICRAgJAAAUICBAgJECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRA\ngJAAAUICBAgJECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJECAkQICQ\nAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJECAkQICQAAFCAgQICRAgJECAkAAB\nQgIECAkQICRAgJAAAUICBAgJECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUIC\nBAgJECAkQICQAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAdch1a0tLytbtK6RUYQEz7gN\nqWpyNxPqPX171DhCgmechrShrzlq7LSZM6eM7mn6VUUMJCR4xmlI4/Mf2XNUOyenJGIgIcEz\nTkPqMa7heFSviIGEBM84DSl/RsPxDS0jBhISPOM0pKKRDccj+kQMJCR4xmlIJTmzdqaPtk41\npREDCQmecRpS9QDTrnjsFZPGDC00g6NSISR4xu37SDWz++fat5HyB86tjRpHSPCM848I7VhT\nUVFZ08ggQoJn+KwdIEBIgEBSIb1dXLzPV97p2qleodkqmANwJqmQlpt9r2X34vJ6/2YaexYF\nZJWkQtqxYkXEd5cQEvySnc+RCAmeyc5f7CMkeCY7f7GPkOCZ7PzFPkKCZ7LzF/sICZ7Jzl/s\nIyR4Jjt/sY+Q4Jns/MU+QoJnsvMX+wgJnsnOX+wjJHgmO3+xj5Dgmez8xT5Cgmf4rB0gQEiA\nACEBAoQECBASIEBIgAAhAQKEBAhkZ0hLDeCZpV94m8cfUvDqsgM4Y8h8Vwomu5ppcoGrmeYP\n4f7LyJAzDrQzX/3iu9xBSAc0dqyzqdr8ztVMv2vjaibuvwxJ7z9CEvN1I0Tj/msMIYn5uhGi\ncf81hpDEfN0I0bj/GkNIYr5uhGjcf40hJDFfN0I07r/GEJKYrxshGvdfYwhJzNeNEI37rzGE\nJObrRojG/dcYQhLzdSNE4/5rTJIhTZjgbKpOT7ma6alOrmbi/suQ9P5LMqSqqD9iofXublcz\n7X7X1UzcfxmS3n9JhgQ0G4QECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQIEBIgQEiAACEB\nAoQECBASIEBIgEASIa299IiWXUa8bA+rS4ryDx2/IdbpfmjGxz/VvXv+jMFNsc+U8ochbTuc\nujiIf6qCvX+d4d3Yp1p1UY+8Lmc72RR/Gdczv/fVW7RTJRDSW4e0vGja9/LzXwiCmgHm3Bnj\n8vvG+aueS3PDkGKe6jYzutR62sGNusccOeWari2XxD/VlPA2lfZptTnuqd5o13nqAzf1yFsU\n/416p0vO+dPPMAN3SadKIKRv5jybOi0zI4NgtvlZ6vDXZnJ8s33ev18YUsxTTWv4kzpx36iN\nbb+6NQgq2050cv+lLMu9OfapLjSpH0HBa2Zo/DfqAjMvdVpi5kinSiCkKdfa09r8fkHQv91O\ne/x33epim+3WnCfCkGKeqsRU7j2M+0bNMk/aszoHU4Vqv/rlmtinOtHssmft+8R/o9r3tFdc\n3XqgdKrEXmx435wd7MgtDo/HmrVxTfN268urbUhxTzXGfFy7/mN7FPuNOr31rmDnp06mCt1m\nFru4/1akTj9ucWbsM201Q8Lz41rWKqdKKKRti49rtzRYY9L/ZbFppjyuiYoP/SQMKe6pzjbX\ndzLm7x+Kf6ag6JhXTs4xR97rYCpra1e72+KeamWnfs9/+Epx4Uuxz7Q775jwfKBZr5wqmZA6\nGHNR6odAhZkU/s9Zpiymie41C4IwpLinGmqOuOWBa9ubu+K/Ue2KDp284Pbe5iEH91/Krea5\nwMH/VW8dY4zp/YKDmQbnvG7nyzerlFMlE9K/TPhGi0FrU/fZFeH/nGkWxjPPxs5nBXtDineq\nRQu2pk7fLOhcE/uNKjD3p043tO1RG/tUKdu7DLFncU+1sm+vnz9+91c6lMe/KZ42fRa+9fAR\nR5p3lFMl9hxpcZvjdleaMeHxFPOneCa5oO17e0KKfaq075o/xz7TIbnb7Nn55nUXN+rBMNvY\n77+Bhe+nTrcddtiu+G/UHYXGtL3te6ZaOVVyn2y40KysyRsaHo4278UyxR/MT9avX/+mGb3+\n07in2uMy83TsMx2fG77ANdEscXGjhudW27OYp/os59Tw/PvmDQc3asszz20JBhwqvVHuQ3r/\nuIvD83PM0uDEQvvDdXfPXvFMNXnvG/OmNOapPrvzV+H5ILM27hsVXGFesmenmXWxT5UKqM3X\n0gfxTrXJnBSejzTL4r9RtfbkvZzvS29UAv8iHd7SboTVbdvuCOaaG1KH/2FujGemlY9bD5vT\nHl8V81S7D2u7KnX2W/PVIO4bFSzL+cedQbC0xXHxTxUEy9Ofr4p9qr75q1On1Z3b74z9Rv04\n/8+p/8POMS9Kb1QCIS3Mzb/g+rFtzL+nfjYMNiNuvCDn2G1xzhc+R4p7qsdy2oz/yXdz2lc4\nuFE/MP1vvLR1y8Uu7r+Hzc3pg5inKmtxyPX3zOhrP24Q9416rbBjyY1fMz8KpFMl8RzppbO7\n5nYc9l/28LNrivIPm7Q51unSIcU91Qtndszr+f1KBzMFdXf1a9XhW392MVXqp/Xte47ivv/O\n7prXadjvHcwUvHh651YD7gm0U/FrFIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKE\nBAgQEiBASIAAIQEChAQIEBIgQEiAACEBAoQECBASIEBIgAAhAQKEBAgQEiBASIAAIQEChAQI\nEBIgQEiAACEBAoQECBASIEBIgAAhAQKElP1uqUx6BWgUIWW9DeaJpJeARhFS1nuMkDxASNnu\n2ybl+SD4aGLv/C4j7N8yH22qJ3RrfeLL20p6tjmpIvWFs82G8d1afunOIDg55wN7mfU5QxJd\n80GIkLLdixebqQs3B5uKOpTO/+nhBc8EwRgz7MZX7mvV+6zSZQs6dt8VBKPMCaVLnv+mmRfM\nMXfYy9xm5ia97IMNIWW9W8KHdpfnLU2drmv3tSAYby5PHY4056VOS8wSG9Lo1OEnBX2CTXlD\n7UVOKqhOcMEHJULKemFIdV0GfGidbj5LhVSe+vL1Zn7q9E6zwIb0mB04zGwIzsjdaB/ZnZPs\nkg9ChJT1wpA+Mnu9mQppZerL08zTqdN55j9tSKvswDHmleB+80v7yK4s2SUfhAgp64UhVZr+\nT6RVp0KybyxNs69A7A3pPTtwYiqtLa1PSz2y61ST7JIPQoSU9fb8i9S//gv7Ccn+ExV8z7wW\nBOflVa3PmZDQUg9ihJT10i82dGkVvn6wKdhvSI/a751gUt8tM/NvM88lt9qDFSFlvZnhM57L\nzXWp0009ztpvSN9OHa7O+VLqdGeHC08pqktyvQcnQsp6C8wJP/9zsLG3ueS+n/bOf2q/IQ07\n6647+5iH7PBLOuddl+yCD0qElPV2ndu602+C4MPLe+V1/M7LwX5DqvxBz5bH3BcOf8qknzHB\nKUJqBkaZ9Ukv4aBHSM0AISWPkJoBQkoeITUDhJQ8QgIECAkQICRAgJAAAUICBAgJECAkQICQ\nAAFCAgQICRAgJECAkAABQgIECAkQICRAgJAAAUICBAgJECAkQICQAAFCAgQICRAgJECAkAAB\nQgIECAkQICRA4H8AHOKqM1UAAAADSURBVHhzjEM0knQAAAAASUVORK5CYII=", "text/plain": [ "plot without title" ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "tempv = seq(from=30, to=90, by = .5)\n", "rmv <- predict(logistic_reg,list(Temperature=tempv),type=\"response\")\n", "plot(tempv,rmv,type=\"l\",ylim=c(0,1))\n", "points(data=data, Malfunction/Count ~ Temperature)" ] }, { "cell_type": "markdown", "metadata": { "hideCode": false, "hidePrompt": false, "scrolled": true }, "source": [ "Comme on pouvait s'attendre au vu des données initiales, la\n", "température n'a pas d'impact notable sur la probabilité d'échec des\n", "joints toriques. Elle sera d'environ 0.2, comme dans les essais\n", "précédents où nous il y a eu défaillance d'au moins un joint. Revenons\n", "à l'ensemble des données initiales pour estimer la probabilité de\n", "défaillance d'un joint :" ] }, { "cell_type": "code", "execution_count": 7, "metadata": {}, "outputs": [ { "data": { "text/html": [ "0.0652173913043478" ], "text/latex": [ "0.0652173913043478" ], "text/markdown": [ "0.0652173913043478" ], "text/plain": [ "[1] 0.06521739" ] }, "metadata": {}, "output_type": "display_data" } ], "source": [ "data_full = read.csv(\"shuttle.csv\",header=T)\n", "sum(data_full$Malfunction)/sum(data_full$Count)" ] }, { "cell_type": "markdown", "metadata": {}, "source": [ "Cette probabilité est donc d'environ $p=0.065$, sachant qu'il existe\n", "un joint primaire un joint secondaire sur chacune des trois parties du\n", "lançeur, la probabilité de défaillance des deux joints d'un lançeur\n", "est de $p^2 \\approx 0.00425$. La probabilité de défaillance d'un des\n", "lançeur est donc de $1-(1-p^2)^3 \\approx 1.2%$. Ça serait vraiment\n", "pas de chance... Tout est sous contrôle, le décollage peut donc avoir\n", "lieu demain comme prévu.\n", "\n", "Seulement, le lendemain, la navette Challenger explosera et emportera\n", "avec elle ses sept membres d'équipages. L'opinion publique est\n", "fortement touchée et lors de l'enquête qui suivra, la fiabilité des\n", "joints toriques sera directement mise en cause. Au delà des problèmes\n", "de communication interne à la NASA qui sont pour beaucoup dans ce\n", "fiasco, l'analyse précédente comporte (au moins) un petit\n", "problème... Saurez-vous le trouver ? Vous êtes libre de modifier cette\n", "analyse et de regarder ce jeu de données sous tous les angles afin\n", "d'expliquer ce qui ne va pas." ] }, { "cell_type": "code", "execution_count": null, "metadata": {}, "outputs": [], "source": [] } ], "metadata": { "celltoolbar": "Hide code", "kernelspec": { "display_name": "R", "language": "R", "name": "ir" }, "language_info": { "codemirror_mode": "r", "file_extension": ".r", "mimetype": "text/x-r-source", "name": "R", "pygments_lexer": "r", "version": "3.5.1" } }, "nbformat": 4, "nbformat_minor": 2 }