Skip to content

M
mooc-rr
Commit 8359ed76 authored by Hugues de Courson's avatar Hugues de Courson
Browse files
Options

Commit V3 exo 3

parent ee250c72
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 192 additions and 140 deletions
module3/exo3/exercice_fr.Rmd
View file @ 8359ed76
--- ---
title: "Exercice paradoxe de Simpson" title: "Exercice paradoxe de Simpson"
author: "Hugues de Courson" author: "Hugues de Courson"
date: "La date du jour" date: "5 avril 2020"
output: output:
pdf_document: pdf_document:
df_print: paged df_print: paged
...@@ -27,6 +27,14 @@ library(kableExtra) ...@@ -27,6 +27,14 @@ library(kableExtra)
Dans un premier temps, il s'agissait de télécharger le fichier dans mon dossier local, ensuite on commit cette action et avec un push il est envoyé sur gitlab. Dans un premier temps, il s'agissait de télécharger le fichier dans mon dossier local, ensuite on commit cette action et avec un push il est envoyé sur gitlab.
```{r import URL}
url <- "https://gitlab.inria.fr/learninglab/mooc-rr/mooc-rr-ressources/blob/master/module3/Practical_session/Subject6_smoking.csv"
data <- read.csv(url)
```
Ensuite il s'agit de le charger dans R : Ensuite il s'agit de le charger dans R :
```{r data import} ```{r data import}
...@@ -87,10 +95,14 @@ kable(tab_2,align = "c") ...@@ -87,10 +95,14 @@ kable(tab_2,align = "c")
# Representation graphique # Representation graphique
Ceci passe par la création d'un tableau avec les pourcentages de mortalité Ceci passe par la création d'un tableau avec les pourcentages de mortalité
```{r representation graphique taux de mortalite} ```{r representation graphique taux de mortalite}
tab_3 <- data.frame(cbind(rbind((sum(data$Status[data$Smoker=="Yes"]=="Dead")/sum(data$Smoker=="Yes"))*100, tab_3 <- data.frame(cbind(rbind((sum(data$Status[data$Smoker=="Yes"]=="Dead")/
(sum(data$Status[data$Smoker=="Yes"]=="Alive")/sum(data$Smoker=="Yes"))*100)), sum(data$Smoker=="Yes"))*100,
rbind((sum(data$Status[data$Smoker=="No"]=="Dead")/sum(data$Smoker=="No"))*100, (sum(data$Status[data$Smoker=="Yes"]=="Alive")/
(sum(data$Status[data$Smoker=="No"]=="Alive")/sum(data$Smoker=="No"))*100)) sum(data$Smoker=="Yes"))*100)),
rbind((sum(data$Status[data$Smoker=="No"]=="Dead")/
sum(data$Smoker=="No"))*100,
(sum(data$Status[data$Smoker=="No"]=="Alive")/
sum(data$Smoker=="No"))*100))
names(tab_3) <- c("Fumeuses", "Non fumeuses") names(tab_3) <- c("Fumeuses", "Non fumeuses")
row.names(tab_3) <- c("Decedees", "Vivantes") row.names(tab_3) <- c("Decedees", "Vivantes")
......
module3/exo3/exercice_fr.log
View file @ 8359ed76
This diff is collapsed.
module3/exo3/exercice_fr.out
View file @ 8359ed76
\BOOKMARK [3][-]{section*.1}{\376\377\000D\000\351\000b\000u\000t\000:\000\040\000c\000h\000a\000r\000g\000e\000m\000e\000n\000t\000\040\000d\000e\000s\000\040\000p\000a\000c\000k\000a\000g\000e\000s\000\040\000p\000o\000u\000v\000a\000n\000t\000\040\000\352\000t\000r\000e\000\040\000u\000t\000i\000l\000e\000s}{}% 1
\BOOKMARK [3][-]{section*.2}{\376\377\000P\000u\000i\000s\000\040\000l\000'\000i\000m\000p\000o\000r\000t\000\040\000d\000e\000s\000\040\000d\000o\000n\000n\000\351\000e\000s}{}% 2
\BOOKMARK [3][-]{section*.3}{\376\377\000M\000i\000s\000s\000i\000o\000n\000\040\0001}{}% 3
\BOOKMARK [2][-]{section*.4}{\376\377\000C\000r\000e\000a\000t\000i\000o\000n\000\040\000d\000u\000\040\000t\000a\000b\000l\000e\000a\000u\000\040\000:}{}% 4
\BOOKMARK [2][-]{section*.5}{\376\377\000C\000a\000l\000c\000u\000l\000\040\000d\000e\000s\000\040\000t\000a\000u\000x\000\040\000d\000e\000\040\000m\000o\000r\000t\000a\000l\000i\000t\000\351\000\040\000:}{}% 5
\BOOKMARK [1][-]{section*.6}{\376\377\000C\000r\000e\000a\000t\000i\000o\000n\000\040\000d\000'\000u\000n\000\040\000t\000a\000b\000l\000e\000a\000u\000\040\000d\000e\000\040\000c\000o\000n\000t\000i\000g\000e\000n\000c\000e}{}% 6
\BOOKMARK [1][-]{section*.7}{\376\377\000R\000e\000p\000r\000e\000s\000e\000n\000t\000a\000t\000i\000o\000n\000\040\000g\000r\000a\000p\000h\000i\000q\000u\000e}{}% 7
\BOOKMARK [1][-]{section*.8}{\376\377\000C\000a\000l\000c\000u\000l\000\040\000d\000e\000s\000\040\000i\000n\000t\000e\000r\000v\000a\000l\000l\000e\000s\000\040\000d\000e\000\040\000c\000o\000n\000f\000i\000a\000n\000c\000e\000\040\000d\000e\000s\000\040\000p\000r\000o\000p\000o\000r\000t\000i\000o\000n\000s}{}% 8
\BOOKMARK [2][-]{section*.9}{\376\377\000M\000i\000s\000s\000i\000o\000n\000\040\0002}{section*.8}% 9
\BOOKMARK [2][-]{section*.10}{\376\377\000P\000r\000e\000m\000i\000\350\000r\000e\000\040\000\351\000t\000a\000p\000e\000\040\000:\000\040\000c\000r\000\351\000a\000t\000i\000o\000n\000\040\000d\000e\000\040\000l\000a\000\040\000v\000a\000r\000i\000a\000b\000l\000e\000\040\000c\000l\000a\000s\000s\000e\000\040\000d\000'\000\342\000g\000e}{section*.8}% 10
\BOOKMARK [2][-]{section*.11}{\376\377\000D\000e\000u\000x\000i\000\350\000m\000e\000\040\000\351\000t\000a\000p\000e\000\040\000o\000n\000\040\000r\000e\000f\000a\000i\000t\000\040\000l\000e\000s\000\040\000t\000a\000b\000l\000e\000a\000u\000x\000\040\000d\000e\000\040\000c\000o\000n\000t\000i\000n\000g\000e\000n\000c\000e\000\040\000m\000a\000i\000s\000\040\000c\000e\000t\000t\000e\000\040\000f\000o\000i\000s\000-\000c\000i\000\040\000d\000e\000\040\000m\000a\000n\000i\000\350\000r\000e\000\040\000p\000l\000u\000s\000\040\000o\000p\000t\000i\000m\000i\000s\000\351\000e}{section*.8}% 11
\BOOKMARK [2][-]{section*.12}{\376\377\000E\000t\000\040\000m\000a\000i\000n\000t\000e\000n\000a\000n\000t\000\040\000o\000n\000\040\000t\000r\000a\000c\000e\000\040\000l\000e\000s\000\040\000b\000a\000r\000p\000l\000o\000t\000s}{section*.8}% 12
\BOOKMARK [2][-]{section*.13}{\376\377\000E\000t\000\040\000m\000a\000i\000n\000t\000e\000n\000a\000n\000t\000\040\000o\000n\000\040\000p\000e\000u\000t\000\040\000o\000b\000t\000e\000n\000i\000r\000\040\000l\000e\000s\000\040\000i\000n\000t\000e\000r\000v\000a\000l\000l\000e\000s\000\040\000d\000e\000\040\000c\000o\000n\000f\000i\000a\000n\000c\000e}{section*.8}% 13
\BOOKMARK [1][-]{section*.14}{\376\377\000P\000o\000u\000r\000\040\000l\000e\000\040\000p\000r\000e\000m\000i\000e\000r\000\040\000g\000r\000o\000u\000p\000e\000\040\000d\000'\000a\000g\000e\000\040\000n\000o\000n\000\040\000f\000u\000m\000e\000u\000s\000e\000s\000\040\000d\000e\000c\000e\000d\000e\000e\000s}{}% 14
\BOOKMARK [1][-]{section*.15}{\376\377\000P\000o\000u\000r\000\040\000l\000e\000\040\000p\000r\000e\000m\000i\000e\000r\000\040\000g\000r\000o\000u\000p\000e\000\040\000d\000'\000a\000g\000e\000\040\000f\000u\000m\000e\000u\000s\000e\000s\000\040\000d\000e\000c\000e\000d\000e\000e\000s}{}% 15
\BOOKMARK [1][-]{section*.16}{\376\377\000P\000o\000u\000r\000\040\000l\000e\000\040\000d\000e\000u\000x\000i\000\350\000m\000e\000\040\000g\000r\000o\000u\000p\000e\000\040\000d\000'\000a\000g\000e\000\040\000n\000o\000n\000\040\000f\000u\000m}{}% 16
\BOOKMARK [1][-]{section*.17}{\376\377\000P\000o\000u\000r\000\040\000l\000e\000\040\000d\000e\000u\000x\000i\000\350\000m\000e\000\040\000g\000r\000o\000u\000p\000e\000\040\000d\000'\000a\000g\000e\000\040\000f\000u\000m}{}% 17
\BOOKMARK [1][-]{section*.18}{\376\377\000P\000o\000u\000r\000\040\000l\000e\000\040\000t\000r\000o\000i\000s\000i\000e\000m\000e\000\040\000g\000r\000o\000u\000p\000e\000\040\000d\000'\000a\000g\000e\000\040\000n\000o\000n\000\040\000f\000u\000m}{}% 18
\BOOKMARK [1][-]{section*.19}{\376\377\000P\000o\000u\000r\000\040\000l\000e\000\040\000t\000r\000o\000i\000s\000i\000e\000m\000e\000\040\000g\000r\000o\000u\000p\000e\000\040\000d\000'\000a\000g\000e\000\040\000f\000u\000m}{}% 19
\BOOKMARK [1][-]{section*.20}{\376\377\000P\000o\000u\000r\000\040\000l\000e\000\040\000q\000u\000a\000t\000r\000i\000e\000m\000e\000\040\000g\000r\000o\000u\000p\000e\000\040\000d\000'\000a\000g\000e\000\040\000n\000o\000n\000\040\000f\000u\000m}{}% 20
\BOOKMARK [2][-]{section*.21}{\376\377\000M\000i\000s\000s\000i\000o\000n\000\040\0003}{section*.20}% 21
\BOOKMARK [2][-]{section*.22}{\376\377\000O\000n\000\040\000c\000o\000m\000m\000e\000n\000c\000e\000\040\000p\000a\000r\000\040\000b\000i\000e\000n\000\040\000c\000o\000d\000e\000r\000\040\000l\000a\000\040\000v\000a\000r\000i\000a\000b\000l\000e\000\040\000d\000\351\000c\000\350\000s}{section*.20}% 22
\BOOKMARK [2][-]{section*.23}{\376\377\000E\000n\000s\000u\000i\000t\000e\000\040\000o\000n\000\040\000f\000a\000i\000t\000\040\000l\000a\000\040\000r\000e\000g\000r\000e\000s\000s\000i\000o\000n\000\040\000l\000o\000g\000i\000s\000t\000i\000q\000u\000e\000,\000\040\000d\000'\000a\000b\000o\000r\000d\000\040\000u\000n\000i\000v\000a\000r\000i\000a\000b\000l\000e\000.}{section*.20}% 23
\BOOKMARK [1][-]{section*.24}{\376\377\000P\000o\000u\000r\000\040\000l\000e\000\040\000t\000a\000b\000a\000c\000\040\000:}{}% 24
\BOOKMARK [1][-]{section*.25}{\376\377\000P\000o\000u\000r\000\040\000l\000'\000\342\000g\000e\000\040\000:}{}% 25
\BOOKMARK [2][-]{section*.26}{\376\377\000M\000o\000d\000\350\000l\000e\000\040\000m\000u\000l\000t\000i\000v\000a\000r\000i\000a\000b\000l\000e}{section*.25}% 26
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment