---
title: "Module 2 - Exo 3"
author: "Christian Wiat"
date: "13 Décembre 2020"
output: html_document
---


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

## récupération des données

Les données suivantes ont été mises dans un  fichier csv local 

E:/R/mooc/mooc27exo2.csv

```{r}
#library()
df <- read.csv2("E:/R/mooc/mooc27exo2.csv", header=FALSE, sep=",")
dfn<- as.numeric(df)
```


```{r}
plot(dfn,type="l", xlim=c(1,100), ylim=c(0,25),xaxs="i",yaxs="i")
grid(nx = 20,ny=5 )
```

```{r}
hist(dfn, col = "blue",xlim=c(0,25), ylim=c(0,25), breaks=10,freq=TRUE)
grid(nx = 5,ny=5 )
```