---
title: "Recherche reproductible : principes méthodologique"
author: "Mahugnon Ezékiel HOUNGBO"
date: "17/02/2021"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

# Mon journal de bord

# Module2


## Importation des packages  
  setwd("C:/Users/Denis CORNET/mooc-rr/module2")
  À utiliser lors du travail en local


```{r}
library(tidyverse)
```

## Importation de la base de donnée

```{r}
DonneModule2<- read.csv2("C:/Users/Denis CORNET/mooc-rr/module2/exo4/DonneModule2.csv")
DonneModule2 <- as.data.frame(DonneModule2)
head(DonneModule2)
DonneModule2$Notes <- as.numeric(DonneModule2$Notes)
head(DonneModule2)
```
## Statistique descriptive sur la base de donnée
### Moyenne, écart-type, minimum, médiane et maximum 
```{r}
DonneModule2.moyenne= mean(DonneModule2$Notes); DonneModule2.moyenne
DonneModule2.ecarttype= sd(DonneModule2$Notes);DonneModule2.ecarttype
DonneModule2.min=min(DonneModule2$Notes);DonneModule2.min
DonneModule2.médiane=median(DonneModule2$Notes); DonneModule2.médiane
DonneModule2.max=max(DonneModule2$Notes); DonneModule2.max
```
### Grapiques de la statistique descriptive
#### Plot
```{r}
plot(DonneModule2$Notes, type="l", ann = FALSE,col="blue", panel.first = grid())
```

#### Histogramme
```{r}
hist(DonneModule2$Notes, ann = FALSE,col="blue" )
```