<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif;font-size:large;color:rgb(204,0,0)">Claro que sí.</div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif;color:rgb(204,0,0)"><font size="2">ko <- matrix(0, 39, 48, byrow = T)        # Matriz p/contar 39 numeros y max de 48 c/u<br>ks <- matrix(0, 39, 48, byrow = T)        # Matriz p/sumar<br>dt <- read.csv('TDist.csv', header = F)   # Tabla de datos<br>for(i in 1:length(dt$V1)) {<br>    for(j in 1:39) {<br>        da <- dt[i, j]<br>        if(da > 0) {ko[j, da] <- ko[j, da] + 1<br>        }<br>    }<br>}<br>write.csv(ko, file = 'ContaC.csv')<br>datIn <- read.table("ContaC.csv", header = TRUE, sep =",", <a href="http://as.is">as.is</a> = TRUE)<br>datIn$X <- NULL<br>mfun <- function(x) {<br>    val_sum <- sum(x)<br>    x_avg <- round(x/val_sum,5)<br>    return(x_avg)<br>}<br>datOut <- apply(datIn, 1, mfun)<br>datEnd <- as.data.frame(t(datOut))<br>write.csv(datEnd, file = 'Sali753.csv')<br></font></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif;font-size:large;color:rgb(204,0,0)">También te adjunto TDist.csv.</div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif;font-size:large;color:rgb(204,0,0)">Gracias<br clear="all"></div><div><div class="gmail_signature"><div dir="ltr"><div style="text-align:center"><b style="font-size:large"><font face="trebuchet ms, sans-serif" color="#cc0000">MANOLO MÁRQUEZ P.</font></b></div></div></div></div>
</div>