Bonjour, Pour calculer la différence entre éléments successifs mieux vaut utiliser la fonction diff. Par exemple on peut efficacement remplacer w <- sapply(1:(100000-1),function(x){FicBase[x,1]-FicBase[x+1,1]-FicBase[x,2]+FicBase[x+1,2]}) par w <- diff(FicBase[,...