De Som-Functie in R