Translations:R/50/fr

1. a very simple function

test_func <- function(var1, var2) {

   # some heavy workload
   sum <- 0
   for (i in c(1:3141593)) {
       sum <- sum + var1 * sin(var2 / i)
   }
   return(sqrt(sum))

}