# 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