---
# System prepended metadata

title: Exercices recrutement Stagiaire

---

# Exercices recrutement Stagiaire

## Exercice 1 : 
Créez un nouveau script, et rédigez une fonction nommée "sommer", retournant la somme terme à terme de deux vecteurs numériques.
Votre fonction devra renvoyer une erreur si les arguments ne sont pas des vecteurs numériques, et être commentée.

-> si trop difficile : rédigez une fonction (vide) ; écrivez un commentaire ; montrez comment vous chercheriez un début de solution.
-> si trop facile : rédigez une fonction qui réalise la même opération pour un nombre indéfini de vecteurs


```
sommer(c(1,2), c(4, 5))
```
doit retourner un vecteur numérique :
```
[1] 6 9
```
et
```
sommer(c(1,2), c(4, "5"))
```
doit retourner une erreur, par exemple :
```
Error in sommer(c(1, 2), c(4, "5")) : 
  all(unlist(lapply(args, is.numeric))) is not TRUE
```
ou une erreur similaire.



## exercice 2 :
Commentez et corrigez le code suivant (expliquez ce qu'il devrait faire, pourquoi il ne le fait pas ou mal, comment améliorer sa rédaction...) :

```
iris %>% select(Sepal.length, "Species") + mutate(var1 == Sepal.Length - 1, var2 == var1 * 2) %>% group-by(Species) %>% summarise(result = mean(var2)) %>% ggplot(aes(Species, result), color = Species) %>% geom_col()
```

-> si trop facile : complétez le code pour illustrer votre connaissance des fonctions du tidyverse