---
title: "Exercice 3"
author: "Corentin Dupont"
date: "15 Juin 2021"
output: html_document
---

## Temperature maximale journalière du 15 au 22 Juin d'après le site [météo france](https://meteofrance.com/)

```{r setup, include=F}
knitr::opts_chunk$set(echo = TRUE)
Data = read.csv(file = "D:/Mes Donnees/MyPhd/Reproductibilite/mooc-rr/module2/exo4/Data.csv",header=T)
Data$Jour <- factor(Data$Jour)
Data$Nbjour <- seq(1,nrow(Data))
```

La temperature maximale la plus grande sur cette période est de:

```{r max, include=T}
max(Data$Temperature)
```

```{r plot, include=T}
plot(Data$Nbjour,Data$Temperature,ylim=c(25,35),col="black",type="b",xlab="Jour",ylab="T°",main="Variation de la temperature maximale sur la période concernée")
```