---
title: "Comment j'ai obtenu les réponses"
author: "FARAHI Rachid"
date: "30 avril 2020"
output: html_document
---


## J'ai commencé par définir septembre comme début d'année.

```{r}
pic_annuel = function(annee) {
      debut = paste0(annee-1,"-09-01")
      fin = paste0(annee,"-09-01")
      semaines = data$date > debut & data$date <= fin
      sum(data$inc[semaines], na.rm=TRUE)
      }
```