---
title: "Exercice d'analyse de données"
author: "Nicolas Roelandt"
date: "2020-06-08"
output: html_document
---


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

```{r load-libraries, echo=FALSE}
library(tidyverse)
```

# Données et résumé

### Taille du jeu de donnée

Le jeu de donnée contient `r nrow(data)` lignes et `r ncol(data)` colonnes.

```{r load-data, echo=FALSE}
data <- read_csv(file = "data.csv")
```

## Contrôle des données

```{r data-head}
head(data)
```


```{r data-tail}
tail(data)
```



### Statistiques

Le jeu de données comprend `r nrow(data)` observations. 
La moyenne des observations est de `r mean(data$valeur)`
La médiane est de `r median(data$valeur)`, les données allant de `r min(data$valeur)` à `r max(data$valeur)`.
Soit une amplitude de `r max(data$valeur) -  min(data$valeur)`.

# Graphiques

### Courbes

Visualisation des données sous forme d'une courbe.

```{r}
plot(data, type = 'l', col = 'blue')
```


### Histogramme

Visualisation sous forme du nombre d'incidence des valeurs.

```{r}
hist(data$valeur, col = 'blue', main = "Répartition des observations", xlab = "Valeur", ylab = "Quantité")
```