somme_rapport<-function(x,y=1){ # exemple de fonction : somme et rapport de deux nombres # ****************************************** # somme_rapport(x,y) : # * Variables d'entrées : # * x : le premier nombre # * y : le second nombre (optionnel, égal à 1 par défaut) # * Variables de sortie : # * s : la somme de x et de y # * r : le rapport de x par y st<-x+y rt<-x/y return(list(s=st,r=rt)) }