Recherche reproductible : principes méthodologique

Mon journal de bord

Module2

Importation des packages

setwd(“C:/Users/Denis CORNET/mooc-rr/module2”) À utiliser lors du travail en local

library(tidyverse)

## -- Attaching packages --------------------------------------- tidyverse 1.3.0 --

## v ggplot2 3.3.2     v purrr   0.3.4
## v tibble  3.0.4     v dplyr   1.0.2
## v tidyr   1.1.2     v stringr 1.4.0
## v readr   1.4.0     v forcats 0.5.0

## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

Importation de la base de donnée

DonneModule2<- read.csv2("C:/Users/Denis CORNET/mooc-rr/module2/exo4/DonneModule2.csv")
DonneModule2 <- as.data.frame(DonneModule2)
head(DonneModule2)

##   Notes
## 1    14
## 2   7.6
## 3  11.2
## 4  12.8
## 5  12.5
## 6   9.9

DonneModule2$Notes <- as.numeric(DonneModule2$Notes)
head(DonneModule2)

##   Notes
## 1  14.0
## 2   7.6
## 3  11.2
## 4  12.8
## 5  12.5
## 6   9.9

Statistique descriptive sur la base de donnée

Moyenne, écart-type, minimum, médiane et maximum

DonneModule2.moyenne= mean(DonneModule2$Notes); DonneModule2.moyenne

## [1] 14.113

DonneModule2.ecarttype= sd(DonneModule2$Notes);DonneModule2.ecarttype

## [1] 4.334094

DonneModule2.min=min(DonneModule2$Notes);DonneModule2.min

## [1] 2.8

DonneModule2.médiane=median(DonneModule2$Notes); DonneModule2.médiane

## [1] 14.5

DonneModule2.max=max(DonneModule2$Notes); DonneModule2.max

## [1] 23.4

Grapiques de la statistique descriptive

Plot

plot(DonneModule2$Notes, type="l", ann = FALSE,col="blue", panel.first = grid())

Histogramme

hist(DonneModule2$Notes, ann = FALSE,col="blue" )