moyenne2 = function(vec, size, n){
     x = size
     k = c()
     while (x>0){
         k = c(k, moyenne(vec, n))
         x = x-1
     }
     k
 }