"*En 1972-1974, à Whickham, une ville du nord-est de l'Angleterre, située à environ 6,5 kilomètres au sud-ouest de Newcastle upon Tyne, un sondage d'un sixième des électeurs a été effectué afin d'éclairer des travaux sur les maladies thyroïdiennes et cardiaques (Tunbridge et al. 1977). Une suite de cette étude a été menée vingt ans plus tard (Vanderpump et al. 1995). Certains des résultats avaient trait au tabagisme et cherchaient à savoir si les individus étaient toujours en vie lors de la seconde étude. Par simplicité, nous nous restreindrons aux femmes et parmi celles-ci aux 1314 qui ont été catégorisées comme \"fumant actuellement\" ou \"n'ayant jamais fumé\". Il y avait relativement peu de femmes dans le sondage initial ayant fumé et ayant arrêté depuis (162) et très peu pour lesquelles l'information n'était pas disponible (18). La survie à 20 ans a été déterminée pour l'ensemble des femmes du premier sondage.*\n",
"*En 1972-1974, à Whickham, une ville du nord-est de l'Angleterre, située à environ 6,5 kilomètres au sud-ouest de Newcastle upon Tyne, un sondage d'un sixième des électeurs a été effectué afin d'éclairer des travaux sur les maladies thyroïdiennes et cardiaques (Tunbridge et al. 1977). Une suite de cette étude a été menée vingt ans plus tard (Vanderpump et al. 1995). Certains des résultats avaient trait au tabagisme et cherchaient à savoir si les individus étaient toujours en vie lors de la seconde étude. Par simplicité, nous nous restreindrons aux femmes et parmi celles-ci aux 1314 qui ont été catégorisées comme \"fumant actuellement\" ou \"n'ayant jamais fumé\". Il y avait relativement peu de femmes dans le sondage initial ayant fumé et ayant arrêté depuis (162) et très peu pour lesquelles l'information n'était pas disponible (18). La survie à 20 ans a été déterminée pour l'ensemble des femmes du premier sondage.*\n",
"\n",
"\n",
"## Importation des données"
"## Importation des données\n",
"Les données sont mises à disposition sur Github. Pour nous protéger contre une éventuelle disparition ou modification du jeux de données, nous faisons une copie locale de ce jeux de données que nous préservons avec notre analyse. Il est inutile et même risquée de télécharger les données à chaque exécution, car dans le cas d'une panne nous pourrions remplacer nos données par un fichier défectueux. Pour cette raison, nous téléchargeons les données seulement si la copie locale n'existe pas."
]
]
},
},
{
{
...
@@ -140,7 +141,184 @@
...
@@ -140,7 +141,184 @@
"\n",
"\n",
"- L'âge moyen au moment de la première étude est de 47 ans (min : 18 ans et max : 89 ans). \n",
"- L'âge moyen au moment de la première étude est de 47 ans (min : 18 ans et max : 89 ans). \n",
"- Presque la moitié de la population étudiée fumait lors de la première étude.\n",
"- Presque la moitié de la population étudiée fumait lors de la première étude.\n",
"- Environ 1/4 des femmes sont décédées au moment de la deuxième étude. "
"- Environ 1/4 des femmes sont décédées au moment de la deuxième étude. \n",
"\n",
"### Calcul de l'effectif et du taux de mortalité général"
"Nous avons un tableau de fréquence décrivant le nombre de femmes vivantes/décedées selon leur tabagisme.\n",
"\n",
"Calculons maintenant le taux de mortalité."
]
},
{
"cell_type": "code",
"execution_count": 6,
"metadata": {},
"outputs": [
{
"data": {
"text/plain": [
" \n",
" Alive Dead\n",
" No 0.6857923 0.3142077\n",
" Yes 0.7611684 0.2388316"
]
},
"metadata": {},
"output_type": "display_data"
}
],
"source": [
"mortality <- prop.table(global, margin=1)\n",
"mortality"
]
},
{
"cell_type": "markdown",
"metadata": {},
"source": [
"Le taux de mortalité des fumeuses est de 31% et celui des non fumeuses de 24%. Ce résultat est surprenant car le tabagisme est un facteur de risque pour de nombreuses maladies cardio-vasculaires et respiratoires.\n",
