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"
author: "Hugues de Courson"
date: "La date du jour"
date: "5 avril 2020"
output:
pdf_document:
df_print: paged
......@@ -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.
```{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 :
```{r data import}
......@@ -87,10 +95,14 @@ kable(tab_2,align = "c")
# Representation graphique
Ceci passe par la création d'un tableau avec les pourcentages de mortalité
```{r representation graphique taux de mortalite}
tab_3 <- data.frame(cbind(rbind((sum(data$Status[data$Smoker=="Yes"]=="Dead")/sum(data$Smoker=="Yes"))*100,
(sum(data$Status[data$Smoker=="Yes"]=="Alive")/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))
tab_3 <- data.frame(cbind(rbind((sum(data$Status[data$Smoker=="Yes"]=="Dead")/
sum(data$Smoker=="Yes"))*100,
(sum(data$Status[data$Smoker=="Yes"]=="Alive")/
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")
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