Dans un premier temps, je te propose une simplification en termes de code car les mapply que tu emploies sont lourds et inutile étant donné la nature vectorisée des calculs que tu veux faire. vecteur <- c(5,3,3,6,9,7,5,8,4,1,2,8,2,5,8,5) oc <- table(vecteur) Pour la création de pdt, ceci: unlist(map...