---
title: "Votre titre"
author: "Votre nom"
date: "La date du jour"
output: html_document
---



```

Séquence plot
```{r}

f <- function(x) {cos(x+0.1)  }
curve(f, from = 0, to = 50*pi, n = 1000, main = "Battements", ylim = c(-3,3) , col = "blue")
```


Histogramme

```{r}
hist(rnorm(1000, mean=15 , sd =0.2) , from=0, to= 23,  col="blue")
```