<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>