Se trata de una matriz en donde se van sumando las apariciones del fenómeno; te mando dicha matriz y el código que la genera: for(j in 1:39) { # Elemento da <- dt[i ,j] # Dato if(da == 0) {next }else{ mc[j, da] <- mc[j, da] + 1 ms[j, da] <- ms[j, da] + da it <- da/mc[j, da] mp[j, da] <- it } } *?Gracias.?* *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]]