[R-es] Subtotales de matriz
Estimado Freddy: Te agradezco la rapidez de tu respuesta. Trato de obtener los subtotales de cada 50 filas de Tdist.csv, es por ello que adjunte dicha tabla; y el objeto de haber enviado el otro archivo, era poner un ejemplo de los resultados que se obtendrían, al efectuar los subtotales de la misma Tdist.csv, pues es parte de ésta. Estoy a tus órdenes para cualquier otra aclaración. Atentamente; *M**ANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Subtotales de matriz
Buenas noches Colegas: He estando buscando la manera de encontrar los subtotales, de una tabla que tiene algo más de 750 registros, para ello uso un bucle for, pero siempre me da el total, a pesar de que dentro del bucle está el obtener la suma parcial en un registro de otra matriz. He tratado con colSum, applay(ko, 2, sum) y da sólo el gran total; también con mr <- rbind(ko, 2, sum) pero en este caso el sistema me indica "cannot coerce type 'builtin' to vector of type 'list'" Adjunto un archivo llamado, Ejem.csv en donde vacié el contenido de los 50 primeros registros, el registro 52 tiene los totales que se deberían asentar en el primero de la matriz resultante; y en los registros 55 a 104 están los 50 siguientes, para terminar con el 106 que contiene el total de esos 50 anteriores. Es de hacer notar que no me importaría si en lugar de salir lo que indica el registro 106, se tuviera la suma de 52 y 106. Si hubiera alguna duda, adjunto también Tdist.csv que es la totalidad de los datos. Ojalá que alguno de Uds. me pudiera orientar, ya, anticipo las gracias más cumplidas. *MANOLO MÁRQUEZ P.* V1,V2,V3,V4,V5,V6,V7,V8,V9,V10,V11,V12,V13,V14,V15,V16,V17,V18,V19,V20,V21,V22,V23,V24,V25,V26,V27,V28,V29,V30,V31,V32,V33,V34,V35,V36,V37,V38,V39 0,0,0,0,0,1,0,0,0,0,0,0,1,1,0,0,0,0,0,0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,1,0,1,0,0 0,0,0,0,2,1,0,2,0,0,0,0,1,0,0,0,0,0,2,0,1,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0 0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3,0,0,0,0,0,0,3,0,0,3,3,0,0,0,0,0,0,0,2,0,2,0,0 0,0,4,4,0,0,0,0,0,0,0,0,2,0,0,0,0,4,0,0,2,4,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0 5,0,1,0,0,0,5,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,5,0,0,0,0,0,0,0,5,0,0,0,0,0,0,0 0,6,0,0,0,0,0,0,6,0,6,0,0,0,0,0,0,0,0,6,0,2,0,0,0,2,3,0,0,0,0,0,0,0,0,0,0,0,0 0,1,0,0,5,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,1,0,0,0,0,7,0,0,7,4,0,0,0,0 3,1,0,0,1,6,0,0,0,8,2,0,0,0,5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 0,0,0,0,0,0,0,0,3,0,1,0,0,0,1,0,0,0,0,3,0,0,6,0,0,0,0,0,0,0,2,0,0,0,0,9,0,0,0 0,0,0,0,0,0,0,8,0,0,0,0,5,9,0,0,0,6,8,0,5,0,0,0,0,0,0,0,0,0,0,0,0,3,0,0,0,0,0 0,3,0,0,0,3,0,0,0,0,0,11,0,0,0,0,0,1,0,0,0,0,0,0,10,0,0,11,0,0,2,0,0,0,0,0,0,0,0 0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,3,0,0,0,0,0,0,0,0,0,12,0,0,10,2,5,3,0,0,0 5,2,0,9,0,0,0,3,0,0,0,2,0,0,0,0,13,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0 0,0,0,0,0,0,0,0,5,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,7,8,3,0,0,0,0,0,0,2,0,11,0,0 0,2,0,0,0,0,10,0,0,7,0,0,0,0,0,0,0,0,0,0,0,0,6,0,0,0,0,0,0,0,0,10,2,0,0,0,0,0,15 0,1,0,0,8,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,5,1,0,4,0,0,0,0,0 0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,6,7,0,7,3,0,0,0,0,0,0,0,0,0,1,0,0,0,0,3,0,0 0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,5,0,0,6,0,0,0,13,0,0,0,0,0,0,0,1,0,0,4,0,1,0,0 0,0,0,0,0,0,0,0,0,0,10,0,0,0,10,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,1,19,4 7,0,0,0,0,0,5,0,0,0,0,0,0,0,0,0,2,0,3,0,0,0,0,0,0,0,0,0,20,0,4,2,0,0,0,0,0,0,0 1,0,0,0,0,0,0,5,0,0,0,0,0,0,0,14,0,0,0,3,0,0,6,0,0,0,0,7,0,0,0,0,0,0,2,0,0,0,0 1,6,0,9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,1,2,0,0,0,7,0,0,0,0,0,0 0,0,18,0,0,0,0,0,0,0,0,0,0,0,0,0,3,6,0,2,0,6,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0 0,0,0,0,0,0,0,3,10,0,0,7,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,4,0,0,8,0,0,5,0,0 0,0,0,0,0,0,0,0,0,0,6,0,0,0,0,0,2,0,0,0,0,0,0,2,0,9,0,3,0,0,0,0,3,0,0,0,0,2,0 4,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,6,2,9,0,0,0,0,0,0,0,0,14,0,0,0,2,0,0,0,0,0 0,0,0,5,11,0,0,0,3,0,0,0,0,0,0,0,2,0,0,0,0,0,0,2,0,0,0,0,5,0,0,0,0,0,0,0,3,0,0 2,0,5,1,0,0,0,0,0,0,0,0,0,0,9,0,0,0,0,0,0,0,0,0,0,0,14,0,0,0,0,0,3,0,0,0,1,0,0 0,7,0,1,0,17,0,0,0,0,0,0,19,0,1,0,2,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 0,0,0,1,0,1,0,0,0,0,5,0,0,12,1,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,9,0,0,0,0 0,2,0,0,0,0,0,0,0,0,1,0,0,0,0,10,0,0,5,2,0,0,1,0,0,0,0,0,0,0,0,0,0,5,0,0,0,0,0 4,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,1,0,0,0,0,0,0,0,7,5,0,0,0,0,0,0,0,4,7,0 0,0,0,0,0,3,0,0,6,0,0,7,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,21,0,1,0 0,3,6,0,0,0,0,10,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,23,0,0,0,2,0,0,0,0,0,0,1,0,0,0 0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,6,12,0,0,0,0,0,0,0,0,0,3,0,0,0,0,0,0,0,0,3,0,16 0,0,0,0,0,0,0,2,0,0,0,0,0,0,4,0,0,0,5,0,0,13,0,0,0,0,0,0,0,0,0,16,8,0,0,0,1,0,0 0,0,3,7,0,0,17,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,10,0,0,0,2,0,0,0,1,0,0,0,0,0,0,0 0,0,1,0,0,0,1,0,0,0,7,0,0,0,2,0,0,3,0,6,0,0,0,0,0,13,0,0,0,0,0,0,0,0,0,0,0,0,0 0,0,0,0,0,0,0,3,0,0,0,0,0,0,1,0,0,1,0,0,0,0,0,2,0,1,0,0,5,0,0,0,3,0,0,0,0,0,0 0,0,0,0,13,0,0,0,0,0,0,0,0,0,0,0,5,0,0,2,0,0,9,0,0,1,0,0,0,0,16,0,0,0,0,0,4,0,0 0,0,0,0,0,0,3,0,0,26,3,0,4,0,2,0,1,0,0,0,15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,0,0,0,0,0,0,2,0,5,3,0,2,0,0,0,0,0,2,0,0 0,0,0,0,0,10,0,0,0,0,0,0,0,0,0,10,0,0,1,0,0,7,0,0,9,0,0,0,0,17,0,0,0,0,0,0,0,10,0 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,3,1,4,0,0,0,0,0,2,0,0,7,0,0,0,0,2,0,0 0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,1,0,0,0,0,0,0,1,6,0,0,0,3,1,0,0,0,0,0,0,0,0,0,10 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,0,0,2,1,0,0,0,0,0,0,0,4,0,0,15,13,0,0,3,0 0,0,0,10,0,0,0,8,0,0,0,0,0,17,0,0,6,8,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,2
[R-es] Error lectura
Carlos, ya funcionó, nuevamente muchas gracias y buenas noches, o mejor dicho días. Atentamente; *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Error lectura
Los datos originales están Tdist.csv que adjunto, el código es:
mc <- matrix(0,39,48,byrow = T) # Matriz Cta
mp <- matrix(0,39,48,byrow = T) # Matriz Pr
ms <- matrix(0,39,48,byrow = T) # Matriz Sumas
mtzbin <- matrix(0,39,48,byrow = T) # Matriz Binom
vec <- 0 # Valor temporal
dt <- read.csv('Tdist.csv', header = F) # Datos
lg <- 0 # Inicial
lg <- length(dt$V1) # Valor longitud
for(i in 1:lg) { # Registro
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
}
}
}
sma <- rowSums(ms, 1)
sr <- max(sma)
write.csv(ms, file = 'dato.csv')
datIn <- read.table('dato.csv', sep = ',', as.is = T)
for(i in 1:39) {
for(j in 1:48) {
vec <- datIn[i, j]
#mtzbin[i, j] <- ((vec/sma[j])^vec)*((1-
vec/sma[j])^(sma[j]-vec))*choose((sr-1),(vec-1))
mtzbin[i, j] <-
((vec/sma)^vec)*((1-vec/sma)^(sma-vec))*choose((sr-1),(vec-1))
}
}
Se trata de leer los datos por medio de la primera parte del código, para
después construir una tabla de probabilidad binomial negativa, vía la
segunda parte del mismo.
Esa primera parte da por resultado 'dato.csv' que también adjunto.
Carlos, nuevamente muchas gracias.
Atentamente;
*MANOLO MÁRQUEZ P.*
0,0,0,0,0,1,0,0,0,0,0,0,1,1,0,0,0,0,0,0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,1,0,1,0,0
0,0,0,0,2,1,0,2,0,0,0,0,1,0,0,0,0,0,2,0,1,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0
0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3,0,0,0,0,0,0,3,0,0,3,3,0,0,0,0,0,0,0,2,0,2,0,0
0,0,4,4,0,0,0,0,0,0,0,0,2,0,0,0,0,4,0,0,2,4,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0
5,0,1,0,0,0,5,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,5,0,0,0,0,0,0,0,5,0,0,0,0,0,0,0
0,6,0,0,0,0,0,0,6,0,6,0,0,0,0,0,0,0,0,6,0,2,0,0,0,2,3,0,0,0,0,0,0,0,0,0,0,0,0
0,1,0,0,5,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,1,0,0,0,0,7,0,0,7,4,0,0,0,0
3,1,0,0,1,6,0,0,0,8,2,0,0,0,5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
0,0,0,0,0,0,0,0,3,0,1,0,0,0,1,0,0,0,0,3,0,0,6,0,0,0,0,0,0,0,2,0,0,0,0,9,0,0,0
0,0,0,0,0,0,0,8,0,0,0,0,5,9,0,0,0,6,8,0,5,0,0,0,0,0,0,0,0,0,0,0,0,3,0,0,0,0,0
0,3,0,0,0,3,0,0,0,0,0,11,0,0,0,0,0,1,0,0,0,0,0,0,10,0,0,11,0,0,2,0,0,0,0,0,0,0,0
0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,3,0,0,0,0,0,0,0,0,0,12,0,0,10,2,5,3,0,0,0
5,2,0,9,0,0,0,3,0,0,0,2,0,0,0,0,13,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0
0,0,0,0,0,0,0,0,5,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,7,8,3,0,0,0,0,0,0,2,0,11,0,0
0,2,0,0,0,0,10,0,0,7,0,0,0,0,0,0,0,0,0,0,0,0,6,0,0,0,0,0,0,0,0,10,2,0,0,0,0,0,15
0,1,0,0,8,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,5,1,0,4,0,0,0,0,0
0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,6,7,0,7,3,0,0,0,0,0,0,0,0,0,1,0,0,0,0,3,0,0
0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,5,0,0,6,0,0,0,13,0,0,0,0,0,0,0,1,0,0,4,0,1,0,0
0,0,0,0,0,0,0,0,0,0,10,0,0,0,10,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,1,19,4
7,0,0,0,0,0,5,0,0,0,0,0,0,0,0,0,2,0,3,0,0,0,0,0,0,0,0,0,20,0,4,2,0,0,0,0,0,0,0
1,0,0,0,0,0,0,5,0,0,0,0,0,0,0,14,0,0,0,3,0,0,6,0,0,0,0,7,0,0,0,0,0,0,2,0,0,0,0
1,6,0,9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,1,2,0,0,0,7,0,0,0,0,0,0
0,0,18,0,0,0,0,0,0,0,0,0,0,0,0,0,3,6,0,2,0,6,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0
0,0,0,0,0,0,0,3,10,0,0,7,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,4,0,0,8,0,0,5,0,0
0,0,0,0,0,0,0,0,0,0,6,0,0,0,0,0,2,0,0,0,0,0,0,2,0,9,0,3,0,0,0,0,3,0,0,0,0,2,0
4,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,6,2,9,0,0,0,0,0,0,0,0,14,0,0,0,2,0,0,0,0,0
0,0,0,5,11,0,0,0,3,0,0,0,0,0,0,0,2,0,0,0,0,0,0,2,0,0,0,0,5,0,0,0,0,0,0,0,3,0,0
2,0,5,1,0,0,0,0,0,0,0,0,0,0,9,0,0,0,0,0,0,0,0,0,0,0,14,0,0,0,0,0,3,0,0,0,1,0,0
0,7,0,1,0,17,0,0,0,0,0,0,19,0,1,0,2,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
0,0,0,1,0,1,0,0,0,0,5,0,0,12,1,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,9,0,0,0,0
0,2,0,0,0,0,0,0,0,0,1,0,0,0,0,10,0,0,5,2,0,0,1,0,0,0,0,0,0,0,0,0,0,5,0,0,0,0,0
4,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,1,0,0,0,0,0,0,0,7,5,0,0,0,0,0,0,0,4,7,0
0,0,0,0,0,3,0,0,6,0,0,7,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,21,0,1,0
0,3,6,0,0,0,0,10,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,23,0,0,0,2,0,0,0,0,0,0,1,0,0,0
0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,6,12,0,0,0,0,0,0,0,0,0,3,0,0,0,0,0,0,0,0,3,0,16
0,0,0,0,0,0,0,2,0,0,0,0,0,0,4,0,0,0,5,0,0,13,0,0,0,0,0,0,0,0,0,16,8,0,0,0,1,0,0
0,0,3,7,0,0,17,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,10,0,0,0,2,0,0,0,1,0,0,0,0,0,0,0
0,0,1,0,0,0,1,0,0,0,7,0,0,0,2,0,0,3,0,6,0,0,0,0,0,13,0,0,0,0,0,0,0,0,0,0,0,0,0
0,0,0,0,0,0,0,3,0,0,0,0,0,0,1,0,0,1,0,0,0,0,0,2,0,1,0,0,5,0,0,0,3,0,0,0,0,0,0
0,0,0,0,13,0,0,0,0,0,0,0,0,0,0,0,5,0,0,2,0,0,9,0,0,1,0,0,0,0,16,0,0,0,0,0,4,0,0
0,0,0,0,0,0,3,0,0,26,3,0,4,0,2,0,1,0,0,0,15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,0,0,0,0,0,0,2,0,5,3,0,2,0,0,0,0,0,2,0,0
0,0,0,0,0,10,0,0,0,0,0,0,0,0,0,10,0,0,1,0,0,7,0,0,9,0,0,0,0,17,0,0,0,0,0,0,0,10,0
[R-es] Error lectura
No exactamente, pues en esa tabla se consignan los datos originales y cada registro tiene sólo 7 diferentes de cero; por ello se hace la suma por separado. *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Error lectura
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]]
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Error lectura
Carlos, muchas gracias por la rapidez de tu respuesta; claro que sí, te adjunto los datos. Nuevamente muchas gracias. Atentamente; *MANOLO MÁRQUEZ P.* "","V1","V2","V3","V4","V5","V6","V7","V8","V9","V10","V11","V12","V13","V14","V15","V16","V17","V18","V19","V20","V21","V22","V23","V24","V25","V26","V27","V28","V29","V30","V31","V32","V33","V34","V35","V36","V37","V38","V39","V40","V41","V42","V43","V44","V45","V46","V47","V48" "1",23,40,57,56,60,18,35,64,99,40,55,12,39,14,0,32,17,0,0,20,0,22,0,0,25,0,0,0,0,0,31,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "2",24,56,66,40,30,84,35,24,54,50,55,24,0,28,15,64,0,0,38,20,21,0,0,0,25,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "3",18,30,27,56,50,60,49,56,45,30,22,24,52,70,60,16,34,36,0,0,0,22,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "4",32,50,63,48,50,66,63,56,45,70,44,24,26,14,30,32,17,0,0,0,0,0,0,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "5",20,42,36,44,65,36,14,48,36,30,44,12,39,14,30,16,34,0,19,60,42,22,0,0,25,0,27,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "6",36,40,39,36,45,48,56,80,36,60,33,12,78,0,30,0,51,36,0,0,42,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "7",26,34,63,36,60,72,56,48,27,50,33,24,39,0,0,48,51,18,19,0,0,0,0,24,25,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "8",25,50,45,52,50,66,70,40,63,50,55,12,39,84,0,16,0,0,19,0,0,0,23,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "9",22,26,24,64,80,48,7,32,99,40,22,12,13,0,60,0,17,18,57,0,21,0,0,0,0,0,0,0,0,30,0,32,0,0,35,0,0,0,0,0,0,0,0,0,0,0,0,0 "10",28,42,54,44,65,48,28,72,27,40,22,36,13,42,30,0,0,0,0,20,0,0,0,0,50,26,27,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,44,0,0,0,0 "11",31,28,39,32,60,84,63,40,36,30,44,60,52,14,45,16,17,18,0,0,0,0,23,0,0,0,27,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "12",24,34,42,68,65,30,42,24,18,40,44,84,65,28,30,32,0,0,19,0,21,22,23,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "13",28,34,33,52,75,42,35,80,36,60,44,36,13,0,15,32,17,18,38,20,0,0,23,0,25,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "14",19,44,36,48,80,30,56,24,27,20,77,48,26,28,15,0,17,54,0,20,0,0,0,24,0,0,0,0,58,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "15",39,42,63,52,45,72,49,56,45,50,44,60,26,14,0,0,34,0,0,40,0,0,0,0,0,26,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "16",29,52,54,52,35,60,56,40,45,60,33,24,26,14,30,48,0,0,19,20,0,0,0,0,0,0,27,0,0,30,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "17",26,34,42,36,100,54,63,32,36,40,44,24,52,42,15,16,17,36,0,0,0,0,0,0,0,0,0,0,0,30,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "18",23,34,51,64,35,66,35,32,36,30,44,48,52,14,45,0,17,36,19,0,0,0,0,24,25,0,27,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "19",25,22,63,40,65,90,35,56,36,40,44,48,13,14,0,16,34,18,19,0,21,0,0,24,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "20",22,52,63,36,65,60,35,96,63,70,55,12,0,28,0,0,0,18,19,0,0,0,23,0,0,0,27,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "21",24,48,42,56,40,36,56,24,36,20,33,24,39,28,45,32,17,36,38,20,21,0,0,0,0,0,0,0,0,30,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "22",21,60,39,88,50,60,28,48,27,20,33,60,52,42,0,32,17,0,19,0,0,0,0,0,25,0,0,0,0,0,0,0,0,0,35,0,0,0,0,0,0,0,0,0,0,0,0,0 "23",24,24,30,48,30,54,42,48,36,40,55,60,52,28,15,0,34,36,0,20,0,0,23,0,0,52,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "24",21,50,42,100,55,42,35,88,36,60,33,24,26,14,0,16,0,18,0,20,0,22,0,48,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "25",31,50,54,60,70,42,63,48,63,20,22,24,26,28,15,32,0,0,19,0,0,44,23,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "26",32,38,54,48,80,48,56,64,36,50,33,12,65,42,0,32,0,18,0,0,21,0,23,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "27",22,36,48,40,55,54,35,48,81,10,44,36,39,98,0,16,0,0,0,20,21,22,0,0,0,26,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "28",20,32,54,56,80,48,63,48,63,0,44,36,26,28,15,32,17,18,0,0,0,22,0,24,0,0,0,0,29,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "29",14,54,54,48,65,54,21,16,63,40,0,24,13,42,30,16,17,0,0,40,42,22,23,0,0,26,0,0,0,0,31,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "30",24,36,30,68,35,36,35,32,18,50,22,24,26,140,30,16,17,0,19,0,21,0,0,0,0,26,54,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "31",26,38,39,72,60,66,70,64,27,50,66,24,26,14,15,16,0,18,0,20,21,0,0,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "32",29,36,21,68,90,48,21,40,63,40,66,36,0,28,60,32,51,0,0,0,0,0,0,0,0,0,27,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "33",35,40,75,20,50,36,14,48,90,40,44,60,26,28,15,32,0,18,19,0,42,0,23,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "34",22,42,60,40,65,78,49,56,54,40,33,24,13,70,45,32,17,0,19,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "35",18,54,54,36,65,24,56,48,45,10,33,48,39,0,60,32,17,36,19,20,21,0,0,0,25,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "36",27,44,39,40,65,36,49,40,27,50,22,48,26,42,45,16,17,18,19,20,21,0,23,24,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "37",31,44,48,60,65,42,77,32,81,50,11,36,65,14,45,32,17,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
[R-es] Error lectura
Buenas noches Colegas
Tengo un error, que considero es de lectura (introducción de datos), y no
doy en que me estoy equivocando, así que solicito su ayuda.
Tengo el siguiente código:
mtzbin <- matrix(0,39,48,byrow = T)
vec <- 0
datIn <- read.table('dato.csv', sep = ',', as.is = T)
sma <- rowSums(ms, 1)
sr <- max(sma)
for(i in 1:39) {
for(j in 1:48) {
vec <- datIn[i, j]
#mtzbin[i, j] <- ((vec/sma[j])^vec)*((1-
vec/sma[j])^(sma[j]-vec))*choose((sr-1),(vec-1))
mtzbin[i, j] <-
((vec/sma)^vec)*((1-vec/sma)^(sma-vec))*choose((sr-1),(vec-1))
}
}
He puesto dos asignaciones para mtzbin[i, j] porque las dos me conducen a
que Rstudio me marca error; en el primer caso me indica:
Error in vec/sma[i] : argumento no-numérico para operador binario
y en el segundo marca:
Error in mtzbin[i, j] <- ((vec/sma)^vec) * ((1 - vec/sma)^(sma - vec)) * :
número de items para para sustituir no es un múltiplo de la longitud del
reemplazo
Interpreto que se trata de un error de lectura puesto que indica que es sma
el 'común denominador'.
Alguien me podría decir donde está mi error; por supuesto adelanto mis más
cumplidas gracias.
Atentamente;
*MANOLO MÁRQUEZ P.*
[[alternative HTML version deleted]]
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Calcular probabilidad binomial negativa
Estimado Freddy, muchas gracias por tu rápida respuesta al asunto de referencia; efectivamente es al tratar de evaluar combn(755,117) cuando RStudio, da el error que cité en mi primera comunicación. Efectivamente el paquete combinat tiene multitud de ramas pero, sólo combn entrega la totalidad de combinaciones. *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Promedio elementos vector
Claro que sí.
ko <- matrix(0, 39, 48, byrow = T)# Matriz p/contar 39 numeros y
max de 48 c/u
ks <- matrix(0, 39, 48, byrow = T)# Matriz p/sumar
dt <- read.csv('TDist.csv', header = F) # Tabla de datos
for(i in 1:length(dt$V1)) {
for(j in 1:39) {
da <- dt[i, j]
if(da > 0) {ko[j, da] <- ko[j, da] + 1
}
}
}
write.csv(ko, file = 'ContaC.csv')
datIn <- read.table("ContaC.csv", header = TRUE, sep =",", as.is = TRUE)
datIn$X <- NULL
mfun <- function(x) {
val_sum <- sum(x)
x_avg <- round(x/val_sum,5)
return(x_avg)
}
datOut <- apply(datIn, 1, mfun)
datEnd <- as.data.frame(t(datOut))
write.csv(datEnd, file = 'Sali753.csv')
También te adjunto TDist.csv.
Gracias
*MANOLO MÁRQUEZ P.*
0,0,0,0,0,1,0,0,0,0,0,0,1,1,0,0,0,0,0,0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,1,0,1,0,0
0,0,0,0,2,1,0,2,0,0,0,0,1,0,0,0,0,0,2,0,1,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0
0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3,0,0,0,0,0,0,3,0,0,3,3,0,0,0,0,0,0,0,2,0,2,0,0
0,0,4,4,0,0,0,0,0,0,0,0,2,0,0,0,0,4,0,0,2,4,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0
5,0,1,0,0,0,5,0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,5,0,0,0,0,0,0,0,5,0,0,0,0,0,0,0
0,6,0,0,0,0,0,0,6,0,6,0,0,0,0,0,0,0,0,6,0,2,0,0,0,2,3,0,0,0,0,0,0,0,0,0,0,0,0
0,1,0,0,5,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,1,0,0,0,0,7,0,0,7,4,0,0,0,0
3,1,0,0,1,6,0,0,0,8,2,0,0,0,5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
0,0,0,0,0,0,0,0,3,0,1,0,0,0,1,0,0,0,0,3,0,0,6,0,0,0,0,0,0,0,2,0,0,0,0,9,0,0,0
0,0,0,0,0,0,0,8,0,0,0,0,5,9,0,0,0,6,8,0,5,0,0,0,0,0,0,0,0,0,0,0,0,3,0,0,0,0,0
0,3,0,0,0,3,0,0,0,0,0,11,0,0,0,0,0,1,0,0,0,0,0,0,10,0,0,11,0,0,2,0,0,0,0,0,0,0,0
0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,3,0,0,0,0,0,0,0,0,0,12,0,0,10,2,5,3,0,0,0
5,2,0,9,0,0,0,3,0,0,0,2,0,0,0,0,13,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0
0,0,0,0,0,0,0,0,5,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0,7,8,3,0,0,0,0,0,0,2,0,11,0,0
0,2,0,0,0,0,10,0,0,7,0,0,0,0,0,0,0,0,0,0,0,0,6,0,0,0,0,0,0,0,0,10,2,0,0,0,0,0,15
0,1,0,0,8,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,5,1,0,4,0,0,0,0,0
0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,6,7,0,7,3,0,0,0,0,0,0,0,0,0,1,0,0,0,0,3,0,0
0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,5,0,0,6,0,0,0,13,0,0,0,0,0,0,0,1,0,0,4,0,1,0,0
0,0,0,0,0,0,0,0,0,0,10,0,0,0,10,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,1,19,4
7,0,0,0,0,0,5,0,0,0,0,0,0,0,0,0,2,0,3,0,0,0,0,0,0,0,0,0,20,0,4,2,0,0,0,0,0,0,0
1,0,0,0,0,0,0,5,0,0,0,0,0,0,0,14,0,0,0,3,0,0,6,0,0,0,0,7,0,0,0,0,0,0,2,0,0,0,0
1,6,0,9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,1,2,0,0,0,7,0,0,0,0,0,0
0,0,18,0,0,0,0,0,0,0,0,0,0,0,0,0,3,6,0,2,0,6,0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0
0,0,0,0,0,0,0,3,10,0,0,7,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,4,0,0,8,0,0,5,0,0
0,0,0,0,0,0,0,0,0,0,6,0,0,0,0,0,2,0,0,0,0,0,0,2,0,9,0,3,0,0,0,0,3,0,0,0,0,2,0
4,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,6,2,9,0,0,0,0,0,0,0,0,14,0,0,0,2,0,0,0,0,0
0,0,0,5,11,0,0,0,3,0,0,0,0,0,0,0,2,0,0,0,0,0,0,2,0,0,0,0,5,0,0,0,0,0,0,0,3,0,0
2,0,5,1,0,0,0,0,0,0,0,0,0,0,9,0,0,0,0,0,0,0,0,0,0,0,14,0,0,0,0,0,3,0,0,0,1,0,0
0,7,0,1,0,17,0,0,0,0,0,0,19,0,1,0,2,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
0,0,0,1,0,1,0,0,0,0,5,0,0,12,1,0,0,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,9,0,0,0,0
0,2,0,0,0,0,0,0,0,0,1,0,0,0,0,10,0,0,5,2,0,0,1,0,0,0,0,0,0,0,0,0,0,5,0,0,0,0,0
4,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,1,0,0,0,0,0,0,0,7,5,0,0,0,0,0,0,0,4,7,0
0,0,0,0,0,3,0,0,6,0,0,7,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,21,0,1,0
0,3,6,0,0,0,0,10,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,23,0,0,0,2,0,0,0,0,0,0,1,0,0,0
0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,6,12,0,0,0,0,0,0,0,0,0,3,0,0,0,0,0,0,0,0,3,0,16
0,0,0,0,0,0,0,2,0,0,0,0,0,0,4,0,0,0,5,0,0,13,0,0,0,0,0,0,0,0,0,16,8,0,0,0,1,0,0
0,0,3,7,0,0,17,0,0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,10,0,0,0,2,0,0,0,1,0,0,0,0,0,0,0
0,0,1,0,0,0,1,0,0,0,7,0,0,0,2,0,0,3,0,6,0,0,0,0,0,13,0,0,0,0,0,0,0,0,0,0,0,0,0
0,0,0,0,0,0,0,3,0,0,0,0,0,0,1,0,0,1,0,0,0,0,0,2,0,1,0,0,5,0,0,0,3,0,0,0,0,0,0
0,0,0,0,13,0,0,0,0,0,0,0,0,0,0,0,5,0,0,2,0,0,9,0,0,1,0,0,0,0,16,0,0,0,0,0,4,0,0
0,0,0,0,0,0,3,0,0,26,3,0,4,0,2,0,1,0,0,0,15,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
10,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,0,0,0,0,0,0,2,0,5,3,0,2,0,0,0,0,0,2,0,0
0,0,0,0,0,10,0,0,0,0,0,0,0,0,0,10,0,0,1,0,0,7,0,0,9,0,0,0,0,17,0,0,0,0,0,0,0,10,0
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,3,1,4,0,0,0,0,0,2,0,0,7,0,0,0,0,2,0,0
0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,1,0,0,0,0,0,0,1,6,0,0,0,3,1,0,0,0,0,0,0,0,0,0,10
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,0,0,2,1,0,0,0,0,0,0,0,4,0,0,15,13,0,0,3,0
0,0,0,10,0,0,0,8,0,0,0,0,0,17,0,0,6,8,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0,0,0,0,2
0,0,0,0,0,5,0,0,0,0,0,0,0,0,7,0,0,0,0,8,0,2,0,0,0,6,0,0,3,0,0,0,0,2,0,0,0,0,0
0,14,0,0,0,0,0,0,0,8,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,15,5,3,0
0,0,0,0,10,0,0,0,0,0,0,0,5,0,2,0,0,0,0,0,0,2,4,0,0,0,0,0,0,0,0,0,0,2,1,0,0,0,0
0,0,13,0,0,0,10,0,0,0,0,0,1,0,0,6,0,0,0,0,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4
10,0,1,0,2,0,1,0,0,0,0,0,0,0,0,0,0,5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,3,0,0
0,0,0,0,0,0,0,0,0,0,0,0,2,0,3,0,0,0,0,5,0,0,0,0,10,0,0,8,0,6,0,0,0,0,1,0,0,0,0
[R-es] Promedio elementos vector
Carlos: Te adjunto las matrices ContaC.csv y Sali753.csv, la primera es la original y la segunda es la salida que obtengo, y, en ella se puede comprobar que se trata de textos. Me llama la atención que, RStudio indica datOut num [1:48, 1:39], sin embargo al examinar los valores son textos. Nuevamente muchas gracias. Atentamente; *MANOLO MÁRQUEZ P.* "","V1","V2","V3","V4","V5","V6","V7","V8","V9","V10","V11","V12","V13","V14","V15","V16","V17","V18","V19","V20","V21","V22","V23","V24","V25","V26","V27","V28","V29","V30","V31","V32","V33","V34","V35","V36","V37","V38","V39","V40","V41","V42","V43","V44","V45","V46","V47","V48" "1",23,20,18,14,12,3,5,8,11,4,5,1,3,1,0,2,1,0,0,1,0,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "2",24,28,22,10,6,14,5,3,6,5,5,2,0,2,1,4,0,0,2,1,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "3",18,15,9,14,10,10,7,7,4,3,2,2,4,5,4,1,2,2,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "4",32,25,21,12,10,11,8,7,5,7,4,2,2,1,2,2,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "5",20,20,12,11,13,6,2,6,4,3,4,1,3,1,2,1,2,0,1,3,2,1,0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "6",36,20,13,8,8,8,8,10,4,6,3,1,6,0,2,0,3,2,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "7",26,17,21,9,12,12,8,6,3,5,3,2,3,0,0,3,3,1,1,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "8",24,25,15,13,10,11,10,5,6,5,5,1,3,6,0,1,0,0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "9",22,13,8,15,16,7,1,4,11,4,2,1,1,0,4,0,1,1,3,0,1,0,0,0,0,0,0,0,0,1,0,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0 "10",26,20,18,11,13,8,3,9,3,4,2,3,1,3,2,0,0,0,0,1,0,0,0,0,2,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0 "11",30,14,13,7,11,14,9,5,4,3,4,5,4,1,3,1,1,1,0,0,0,0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "12",24,17,14,17,13,5,6,3,2,4,4,6,5,2,2,2,0,0,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "13",28,17,11,12,15,7,5,10,4,6,4,3,1,0,1,2,1,1,2,1,0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "14",19,22,12,12,16,5,8,3,3,2,7,4,2,2,1,0,1,3,0,1,0,0,0,1,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "15",39,21,21,13,9,11,7,7,5,5,4,5,2,1,0,0,2,0,0,2,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "16",28,26,18,13,7,10,8,5,5,6,3,2,2,1,2,3,0,0,1,1,0,0,0,0,0,0,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "17",26,17,14,9,20,9,9,4,4,4,4,2,4,3,1,1,1,2,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "18",23,17,17,15,7,11,5,4,4,3,4,4,4,1,3,0,1,2,1,0,0,0,0,1,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "19",24,11,21,10,13,15,5,6,4,4,4,4,1,1,0,1,2,1,1,0,1,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "20",22,26,21,9,13,10,5,12,7,7,5,1,0,2,0,0,0,1,1,0,0,0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "21",24,24,14,14,8,6,8,3,4,2,3,2,3,2,3,2,1,2,2,1,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "22",21,30,13,21,10,10,4,6,3,2,3,5,4,3,0,2,1,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0 "23",24,12,10,12,6,9,6,6,4,4,5,5,4,2,1,0,1,2,0,1,0,0,1,0,0,2,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "24",21,25,14,25,11,7,5,11,4,6,3,2,2,1,0,1,0,1,0,1,0,1,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "25",31,25,18,15,14,7,9,6,7,2,2,2,1,2,1,2,0,0,1,0,0,2,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "26",32,19,18,12,16,8,8,8,4,5,3,1,5,3,0,2,0,1,0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "27",22,18,16,10,11,9,5,6,9,1,4,3,3,7,0,1,0,0,0,1,1,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "28",20,16,18,14,16,7,9,6,7,0,4,3,2,2,1,2,1,1,0,0,0,1,0,1,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "29",14,27,17,12,13,9,3,2,7,4,0,2,1,3,2,1,1,0,0,2,2,1,1,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "30",24,18,10,17,7,6,5,4,2,5,1,2,2,10,2,1,1,0,1,0,1,0,0,0,0,1,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "31",26,19,13,18,12,11,10,8,3,5,6,2,1,1,1,1,0,1,0,1,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "32",29,17,7,16,18,8,3,5,7,4,6,3,0,2,4,2,3,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "33",35,19,25,5,10,6,2,6,10,4,4,5,2,2,1,2,0,1,1,0,2,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "34",22,21,19,9,13,13,7,7,6,4,3,2,1,5,3,2,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "35",18,27,18,9,13,4,8,6,5,1,3,4,3,0,4,2,1,2,1,1,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "36",26,22,13,10,13,6,6,5,3,5,2,4,2,3,3,1,1,1,1,1,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "37",31,22,16,15,13,7,11,4,9,5,1,3,5,1,3,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "38",30,20,27,18,9,8,11,8,1,5,2,3,0,4,1,1,1,1,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "39",13,20,14,7,11,3,5,9,4,8,4,4,5,0,2,2,2,0,1,0,0,0,0,0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
[R-es] Promedio elementos vector
Estimado Carlos: Di por solucionado el asunto de referencia, sin embargo me topé con un problema, y es que los valores que da la matriz con los promedios son texto, y no encuentro la manera de convertirlos a número, y así poder usarlos con otras cantidades. ¿Me puedes ayudar nuevamente para transformarlos? Como antes anticipo las gracias. Atentamente; *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Promedio elementos vector SOLUCIONADO
Carlos, nuevamente te agradezco tu intervención; con la modificación que me diste ya quedó solucionado mi problema. Atentamente; *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Promedio elementos vector
Carlos, nuevamente muchas gracias, la solución que me diste quedó con una pequeña modificación; usé rowsum(x) en lugar de sum. Me quedan unas dudas: a) Los resultados me quedan en columnas y no en renglones ??. b) Me da 'Error in rowsum.default(x) el argumento "group" está ausente, sin valor por omisión'. ¿Qué se debe corregir? c) ¿Es posible que los resultados queden en 5 decimales? Atentamente; *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Promedio elementos vector
Ya vi la ayuda de rowMeans, y no quiero la media de una fila, sino la media de cada elemento de la fila; es decir el promedio de ContaC[1,1] que vale 23, y, cómo la suma de la fila ContaC[1,] vale 134 el promedio es 0.1716 y si nos referimos a ContaC[1, 3] entonces el promedio sera el resultado del cociente 18/134, o sea 0.1343. Resumiendo, la 'matriz original' se convierte en otra matriz con los 1872 promedios de los 1872 elementos. *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Promedio elementos vector
Estimado Jorge: Te agradezco tu rápida intervención para resolver mi problema, ya estoy mirando la ayuda a esas funciones. Nuevamente muchas gracias. *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Promedio elementos vector
Buenas noches estimados colegas: Adjunto la matriz,de la que quiero obtener, los promedios de cada elemento de los vectores que la componen. Me explico, el primer vector, tiene como primer elemento 23 y la suma de todos los elementos es 134; por lo tanto el promedio será 0.1716, el segundo elemento de dicho vector es 20, entonces el promedio sería 0.1492, del tercero el promedio es 0.1343 y así sucesivamente. ¿Me podrían hacerme el favor de indicarme, el o los documentos que debo consultar, con objeto de solucionar mi problema? Por adelantado doy las gracias más cumplidas. Atentamente; *MANOLO MÁRQUEZ P.* "","V1","V2","V3","V4","V5","V6","V7","V8","V9","V10","V11","V12","V13","V14","V15","V16","V17","V18","V19","V20","V21","V22","V23","V24","V25","V26","V27","V28","V29","V30","V31","V32","V33","V34","V35","V36","V37","V38","V39","V40","V41","V42","V43","V44","V45","V46","V47","V48" "1",23,20,18,14,12,3,5,8,11,4,5,1,3,1,0,2,1,0,0,1,0,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "2",24,28,21,10,6,14,5,3,6,5,5,2,0,2,1,4,0,0,2,1,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "3",18,15,9,14,10,10,7,7,4,3,2,2,4,5,4,1,2,2,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "4",32,25,21,12,10,11,8,7,5,7,4,2,2,1,2,2,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "5",19,20,12,11,13,6,2,6,4,3,4,1,3,1,2,1,1,0,1,3,2,1,0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "6",36,20,13,8,8,8,8,10,4,6,3,1,6,0,2,0,3,2,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "7",26,17,21,9,11,12,8,6,3,5,3,2,3,0,0,3,3,1,1,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "8",24,25,15,13,10,11,10,5,6,5,5,1,3,6,0,1,0,0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "9",22,13,8,15,16,7,1,4,11,4,2,1,1,0,4,0,1,1,3,0,1,0,0,0,0,0,0,0,0,1,0,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0 "10",26,20,18,11,13,8,3,9,3,4,2,3,1,3,2,0,0,0,0,1,0,0,0,0,2,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0 "11",30,14,13,7,11,14,9,5,4,3,4,5,4,1,3,1,1,1,0,0,0,0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "12",24,17,14,17,13,5,6,3,2,4,4,6,5,2,2,2,0,0,1,0,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "13",28,17,11,12,15,7,5,10,4,5,4,3,1,0,1,2,1,1,2,1,0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "14",19,22,12,12,16,5,8,3,3,2,7,4,2,2,1,0,1,3,0,1,0,0,0,1,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "15",39,21,21,13,9,11,7,7,5,5,4,5,2,1,0,0,2,0,0,2,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "16",28,26,17,13,7,10,8,5,5,6,3,2,2,1,2,3,0,0,1,1,0,0,0,0,0,0,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "17",26,17,14,9,20,9,9,4,4,4,4,2,4,3,1,1,1,2,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "18",23,17,17,15,7,11,5,4,3,3,4,4,4,1,3,0,1,2,1,0,0,0,0,1,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "19",24,11,21,10,13,15,5,6,4,4,4,4,1,1,0,1,2,1,1,0,1,0,0,1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "20",22,26,21,9,13,10,5,12,7,7,5,1,0,2,0,0,0,1,1,0,0,0,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "21",24,24,14,14,8,6,8,3,4,2,3,2,3,2,3,2,1,2,2,1,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "22",21,30,13,21,9,10,4,6,3,2,3,5,4,3,0,2,1,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0 "23",24,12,10,12,6,9,6,6,4,4,5,5,4,2,1,0,1,2,0,1,0,0,1,0,0,2,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "24",21,25,14,25,11,7,5,11,4,6,3,2,2,1,0,1,0,1,0,1,0,1,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "25",31,25,18,15,14,7,9,6,7,2,2,2,1,2,1,2,0,0,1,0,0,2,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "26",31,19,18,12,16,8,8,8,4,5,3,1,5,3,0,2,0,1,0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "27",22,18,16,10,11,9,5,6,9,1,4,3,3,7,0,1,0,0,0,1,1,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "28",20,16,18,14,16,7,9,6,7,0,4,3,2,2,1,2,1,1,0,0,0,1,0,1,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "29",14,27,17,12,13,9,3,2,7,4,0,2,0,3,2,1,1,0,0,2,2,1,1,0,0,1,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "30",24,18,10,17,7,6,5,4,2,5,1,2,2,10,2,1,1,0,1,0,1,0,0,0,0,1,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "31",26,19,13,18,12,11,10,8,3,5,6,2,1,1,1,1,0,1,0,1,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "32",29,17,7,16,18,8,3,5,7,4,6,3,0,2,4,2,3,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "33",33,19,25,5,10,6,2,6,10,4,4,5,2,2,1,2,0,1,1,0,2,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "34",21,21,19,9,13,13,7,7,6,4,3,2,1,5,3,2,1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "35",18,27,18,9,13,4,8,6,5,1,3,4,3,0,4,2,1,2,1,1,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "36",26,22,13,10,13,6,6,5,3,5,2,4,2,3,3,1,1,1,1,1,1,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "37",31,22,16,15,13,7,11,4,9,5,1,3,5,1,3,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 "38",30,20,27,17,9,8,11,8,1,5,2,3,0,4,1,1,1,1,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
[R-es] Añadir columnas
Sí, Carlos es la misma; los datos entrecomillados son los encabezados y podrían quitarse de momento, por otra parte renglones y columnas son iguales porque se han transpuesto los renglones, los elementos cero corresponden a que no hay interacción entre eventos del mismo tipo; pues como se puede observar son de 1 vs 1, 2 vs 2 etc.; pero al ordenarse se pierde el dato de 1 vs 5 o 4 vs 30 y por ello se necesitan de las etiquetas que se añaden con h. Gracias otra vez. *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Añadir columnas
Patricio, Carlos: Agradezco mucho su interés por asunto de referencia. Efectivamente, se trata de transformar mf en un conjunto del doble al original, para luego ordenar cada grupo y comparar su evolución, con el paso del tiempo; como el ejemplo siguiente: 0 22 18 24 15 22 0 18 28 23 18 18 0 . 13 24 28 20 0 26 15 23 13 26 0 Al aplicar la introducción de h quedaría: 1 0 1 22 1 18 1 24 1 15 2 22 2 0 2 18 2 28 2 23 3 18 3 18 3 0 3 20 3 13 4 24 4 28 4 20 4 0 4 26 5 15 5 23 5 13 5 26 5 0 Ahora ya puedo tomar cada grupo y guardarlo en diferentes carpetas, así es posible vigilar la evolución de cada grupo más fácilmente. Nuevamente muchas, muchas gracias. *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Añadir columnas
Estimados Colegas: Tengo una matriz de la que adjunto con el nombre Sma746.csv, a esta le quiero añadir repetidamente una 'etiqueta' a cada columna que llamo 'h', para lo cual uso el script que también adjunto 'TOT.r'. Mi problema consiste en que no sucede así, porque pasando de 9 juegos, el sistema me pone otros números de no se donde. Ojalá alguno de ustedes me pueda ayudar y a quién(es) anticipo las gracias más cumplidas. *Atentamente;MANOLO MÁRQUEZ P.* "","V1","V2","V3","V4","V5","V6","V7","V8","V9","V10","V11","V12","V13","V14","V15","V16","V17","V18","V19","V20","V21","V22","V23","V24","V25","V26","V27","V28","V29","V30","V31","V32","V33","V34","V35","V36","V37","V38","V39" "1",0,22,18,24,15,18,19,21,11,24,19,27,27,13,20,18,27,20,26,31,18,21,24,24,20,27,18,20,30,17,17,28,23,21,22,14,27,21,12 "2",22,0,18,28,23,26,29,25,16,20,30,19,22,17,19,16,25,28,23,24,16,23,28,19,20,19,21,21,21,25,25,24,22,18,19,15,26,24,18 "3",18,18,0,20,13,15,22,26,17,16,9,16,15,15,22,21,21,17,23,19,18,22,14,24,22,17,17,16,24,17,22,20,26,14,22,13,25,18,19 "4",24,28,20,0,26,30,30,26,23,16,19,29,18,26,23,23,27,25,27,16,25,25,15,24,32,29,23,15,21,23,19,22,25,22,16,32,30,32,22 "5",15,23,13,26,0,25,22,16,14,17,17,15,21,17,19,17,19,22,17,21,18,15,16,15,19,23,19,18,16,14,19,23,21,18,19,16,21,18,15 "6",18,26,15,30,25,0,18,15,20,18,22,24,27,21,28,25,19,18,18,28,23,19,11,20,35,28,13,18,17,20,19,18,23,23,27,30,27,21,17 "7",19,29,22,30,22,18,0,20,15,22,22,20,22,25,21,19,20,15,20,18,20,28,21,19,20,21,19,22,22,16,18,27,19,17,22,13,30,19,20 "8",21,25,26,26,16,15,20,0,22,25,18,24,20,24,19,25,23,22,30,22,20,23,13,13,23,20,15,18,20,19,26,18,26,22,19,23,22,23,24 "9",11,16,17,23,14,20,15,22,0,13,17,14,15,16,18,19,18,16,24,20,17,16,10,21,20,17,14,15,18,16,21,17,24,19,18,21,24,20,22 "10",24,20,16,16,17,18,22,25,13,0,24,18,24,14,32,20,19,13,21,15,15,19,15,21,20,26,21,19,14,18,19,21,29,19,21,21,18,22,25 "11",19,30,9,19,17,22,22,18,17,24,0,21,20,24,22,22,18,20,16,24,18,15,14,22,17,23,23,12,15,14,25,22,21,24,19,15,24,24,15 "12",27,19,16,29,15,24,20,24,14,18,21,0,14,15,22,23,13,19,18,31,31,20,13,29,23,22,16,21,15,15,19,12,18,17,12,20,20,18,20 "13",27,22,15,18,21,27,22,20,15,24,20,14,0,16,24,25,20,22,17,20,24,16,15,19,22,19,21,16,20,15,22,23,15,20,21,17,20,14,21 "14",13,17,15,26,17,21,25,24,16,14,24,15,16,0,22,26,24,19,20,13,25,17,14,15,16,20,17,19,19,14,13,24,20,15,23,16,16,26,16 "15",20,19,22,23,19,28,21,19,18,32,22,22,24,22,0,23,20,23,23,28,24,19,22,25,20,34,25,25,26,21,25,18,15,28,25,23,29,24,17 "16",18,16,21,23,17,25,19,25,19,20,22,23,25,26,23,0,23,15,17,19,18,21,21,16,21,20,19,20,12,23,16,23,20,22,23,17,24,35,21 "17",27,25,21,27,19,19,20,23,18,19,18,13,20,24,20,23,0,21,14,25,16,19,20,21,18,22,15,22,15,13,25,16,21,23,19,17,24,27,14 "18",20,28,17,25,22,18,15,22,16,13,20,19,22,19,23,15,21,0,20,14,16,15,14,19,20,16,18,18,11,18,14,13,21,27,26,21,22,19,15 "19",26,23,23,27,17,18,20,30,24,21,16,18,17,20,23,17,14,20,0,16,26,16,13,14,20,12,16,17,12,13,15,16,20,17,23,20,23,23,17 "20",31,24,19,16,21,28,18,22,20,15,24,31,20,13,28,19,25,14,16,0,17,29,20,26,24,21,18,16,17,16,23,13,23,20,26,19,25,26,20 "21",18,16,18,25,18,23,20,20,17,15,18,31,24,25,24,18,16,16,26,17,0,20,13,18,24,16,16,19,21,10,22,16,16,18,14,22,19,19,15 "22",21,23,22,25,15,19,28,23,16,19,15,20,16,17,19,21,19,15,16,29,20,0,24,17,31,25,24,21,15,25,20,23,21,24,21,16,19,23,14 "23",24,28,14,15,16,11,21,13,10,15,14,13,15,14,22,21,20,14,13,20,13,24,0,27,15,20,20,17,17,11,20,19,8,15,18,14,20,16,14 "24",24,19,24,24,15,20,19,13,21,21,22,29,19,15,25,16,21,19,14,26,18,17,27,0,26,25,24,28,16,10,25,22,27,19,20,15,24,31,20 "25",20,20,22,32,19,35,20,23,20,20,17,23,22,16,20,21,18,20,20,24,24,31,15,26,0,28,15,18,22,20,24,18,22,24,17,29,16,31,19 "26",27,19,17,29,23,28,21,20,17,26,23,22,19,20,34,20,22,16,12,21,16,25,20,25,28,0,20,22,19,16,17,15,19,25,15,17,27,27,21 "27",18,21,17,23,19,13,19,15,14,21,23,16,21,17,25,19,15,18,16,18,16,24,20,24,15,20,0,25,16,17,15,16,23,17,26,19,21,20,16 "28",20,21,16,15,18,18,22,18,15,19,12,21,16,19,25,20,22,18,17,16,19,21,17,28,18,22,25,0,19,22,26,12,23,14,14,17,20,23,19 "29",30,21,24,21,16,17,22,20,18,14,15,15,20,19,26,12,15,11,12,17,21,15,17,16,22,19,16,19,0,17,19,22,23,24,11,16,24,21,17 "30",17,25,17,23,14,20,16,19,16,18,14,15,15,14,21,23,13,18,13,16,10,25,11,10,20,16,17,22,17,0,15,21,22,24,18,20,18,25,12 "31",17,25,22,19,19,19,18,26,21,19,25,19,22,13,25,16,25,14,15,23,22,20,20,25,24,17,15,26,19,15,0,16,21,32,22,18,23,26,17 "32",28,24,20,22,23,18,27,18,17,21,22,12,23,24,18,23,16,13,16,13,16,23,19,22,18,15,16,12,22,21,16,0,25,17,22,20,20,23,17 "33",23,22,26,25,21,23,19,26,24,29,21,18,15,20,15,20,21,21,20,23,16,21,8,27,22,19,23,23,23,22,21,25,0,16,15,22,10,23,20 "34",21,18,14,22,18,23,17,22,19,19,24,17,20,15,28,22,23,27,17,20,18,24,15,19,24,25,17,14,24,24,32,17,16,0,21,23,14,24,19 "35",22,19,22,16,19,27,22,19,18,21,19,12,21,23,25,23,19,26,23,26,14,21,18,20,17,15,26,14,11,18,22,22,15,21,0,20,22,23,16
[R-es] Ordenar vector
Estimados Colegas, tengo una pregunta, supongamos el vector x que tiene los siguientes elementos: x<-c(15,20,11,25,0,22,22,16,13,18,16,15,18) # y luego pongo y <- order(x) y # entonces obtengo: [1] 5 3 9 1 12 8 11 10 13 2 6 7 4 que indican la posición en el vector, pero quiero obtener: 25 22 22 20 18 18 16 16 15 15 13 11 0 ¿Me pueden indicar el documento que debo consultar para lograrlo? Anticipo las gracias más cumplidas. Atentamente, *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Incluir versaión
De acuerdo, muchas gracias Javier, lo voy a hacer. *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Incluir versión
Estimado José Trujillo, no, la verdad es que no he usado git; pero eso no quita que lo intente y tomaré en cuenta tu sugerencia y consultaré el enlace que me proporcionas. Les agradezco nuevamente tanto a ti como a Javier sus consejos. *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Incluir versión
Estimado Javier, te agradezco tu sugerencia y voy a implementarla; sólo para ver si comprendí bien, ¿debo usar una columna, para incluir la fecha únicamente? *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Incluir versión
Estimado Freddy: Gracias por tu pronta respuesta; se trata de poner la versión de la tabla, y de esa manera distinguir el número de edición. Nuevamente muchas gracias. *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Incluir versión
Buenos días Colegas: Tengo la inquietud de poner el número de versión al usar write.csv de una tabla y no sé donde puedo encontrar la manera de hacerlo. ¿Me harían el favor de indicarme el lugar que me lo diga? Por adelantado doy las más cumplidas gracias. *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Ordenar atómicos
Estimable Francisco: Muchas gracias por tomarte un tiempo para darme una solución. Sí me parece que debe funcionar; lo voy a probar con una matriz más grande, e insisto creo funcionará. *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Datos atómicos
Carlos: Te agradezco mucho tu rápida respuesta y mucho me apena haber planteado tan mal el problema. Porque la matriz en realidad es: g1 g2 g3 g4 g5 g6 g7 g1 0 18 13 16 11 12 15 g2 18 0 25 13 22 16 10 g3 13 25 0 28 23 13 25 g4 16 13 28 0 6 7 3 g5 11 22 23 6 0 18 17 g6 12 16 13 7 18 0 8 g7 15 10 25 3 17 8 0 Entonces cada cantidad debe conservar la pertenencia al grupo correspondiente . La ordenación la pretendí hacer con el índice de la matriz de 39x39 pero no me funcionó; ¿es posible hacerlo o se debe hacer una por una? Nuevamente mis disculpas y mi agradecimiento por adelantado. Atentamente; *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] RStudio en Ubuntu 17.04 SOLUCIONADO
Otra vez José Antonio, muchas gracias. Pues resulta que si existen las versiones para i386, que a decir verdad, era lógico que existiera pues si no ¿qué pasaría verdad? Gracias a todos por su sugestiones. Atentamente; *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] RStudio en Ubuntu 17.10
Estimado José Antonio: Muchas gracias por tu sugerencia, tengo i386 pero voy a probar sustituyendo el tipo amd64 por i386 a ver si existe y de esta manera poder volver a usar RStudio. Mañana domingo, lo probaré y te lo comunicaré. Nuevamente muchas gracias por tu ayuda. *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] RStudio en Ubuntu 17.10
Carlos: Muchas gracias por tu inmediata respuesta, sólo que el sistema me responde: El paquete libgstreamer0.10-0 no está disponible, pero algún otro paquete hace referencia a él. Esto puede significar que el paquete falta, está obsoleto o sólo se encuentra disponible desde alguna otra fuente E: El paquete «libgstreamer0.10-0» no tiene un candidato para la instalación. ¿Entonces qué puede hacerse? *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] RStudio en Ubuntu 17.10
Estimados Colegas: Como antecedentes les informo: a).-Traté de actualizar mi sistema de Ubuntu 16.10 a 17.04; sin embargo una falla de electricidad me cortó la instalación. b).- Me vi en la necesidad de reinstalar, pero formateando lo que tenía instalado, entre otros RStudio. Ahora que he estado tratar de recuperar la versión 1.0.143-i386, de RStudio, que tenía me encuentro que se debe instalar libgstreamer0.10-0 y aunque la bajé, no logro instalarla, a pesar de estar en la carpeta donde reside y donde he ejecutado sudo dpkg -i. Pero aun más traté de instalar la versión 0.99.896-i386 de Rstudio y también me solicitó la misma librería. Alguno de ustedes me podría hacer el favor de orientarme para lograr volver a tener RStudio. Anticipo las más cumplidas gracias. *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] RStudio
Guido: Mucho te (les) agradezco las atenciones que han tenido todos ustedes, para resolver el problema que tengo. *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] RStudio
Estimable Manuel: Te agradezco tu respuesta y voy a tomar en cuenta tu sugerencia, con gusto les enviaré mis comentarios, para quien llegue a tener esa dificultad, nuevamente muchas gracias tocayo. *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] RStudio
Estimado Carlos: Nuevamente te agradezco la prontitud de tu respuesta, la solución era conseguir la librería libgstreamer0.10-0 y la obtuve de https://packages.debian.org/jessie/libgstreamer0.10-0, también tuve que poner libgstreamer-plugins-base0.10-0. A ti Javier también te agradezco tu sugerencia. Muchas gracias a ambos, sinceramente; *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Rstudio
Estimados colegas: Tuve que instalar en mi PC Ubuntu 16.10 y quiero instalar nuevamente RStudio, sin embargo no sucede así, porque en la terminal se indica que hay dependencias incumplidas. He encontrado que se ha cambiado una librería libgstreamer y no se como hacer para que se pueda instalar adecuadamente el paquete RStudio. ¿Alguno de ustedes me puede decir el procedimiento completo para lograr dicha instalación? Adelanto las gracias más cumplidas. *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] RStudio y ggplot2
Carlos, muchas gracias nuevamente, tanto por la rapidez de la respuesta como por el consejo, y sí, voy a hacer caso a tu consejo instalando tidyverse. Muy agradecido; *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] RStudio y ggplot2
Estimados colegas, quiero ver si alguno de ustedes me puede orientar respecto a un problema que tengo: Hace algunos días que instalé Rstudio 1.0.44-i386, en Ubuntu 16.04 y resulta que al tratar de ponerle ggplot2, el sistema despliega: a.) installation of package 'stringr' had non-zero exit status b.) installation of package 'reshape2' had non-zero exit status c.) installation of package 'ggplot2' had non-zero exit status Consecuentemente no se instala ggplot2. Me podría alguien decir ¿dónde puedo encontrar orientación para solucionar dicha instalación? Anticipo las gracias más cumplidas. *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Determinar Frecuencia
Carlos, muchas gracias nuevamente por la rapidez de tu respuesta, ya funcionó el código que tenía. Mi error partía de que habiendo usado previamente corchetes en la definición del grupo, era necesario conservarlos, una estupi..., que no volveré a cometer. ¿Qué documento debo consultar para saber usar paréntesis, corchetes y llaves?, porque los he venido usando, de ejemplos que he encontrado. Repito ¡MUCHAS GRACIAS!!! *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Determinar Frecuencia
Me debo explicar, tengo el siguiente script:
library(ggplot2)
da <- read.csv('T20.csv')
un <- da[da[,2] == 1,]
do <- da[da[,2] == 2,]
tr <- da[da[,2] == 3,]
cu <- da[da[,2] == 4,]
ci <- da[da[,2] == 5,]
se <- da[da[,2] == 6,]
si <- da[da[,2] == 7,]
if (length[un$d] >= 8) {sua1 <- loess(d ~ n, data = un, span = 0.65, degree
= 2)
idx1 <- predict(sua1)
print(tail(idx1))}
if (length[do$d] >= 8) {sua2 <- loess(d ~ n, data = do, span = 0.65, degree
= 2)
idx2 <- predict(sua2)
print(tail(idx2))}
if (length[tr$d] >= 8) {sua3 <- loess(d ~ n, data = tr, span = 0.65, degree
= 2)
idx3 <- predict(sua3)
print(tail(idx3))}
if (length[cu$d] >= 8) {sua4 <- loess(d ~ n, data = cu, span = 0.65, degree
= 2)
idx4 <- predict(sua4)
print(tail(idx4))}
if (length[ci$d] >= 8) {sua5 <- loess(d ~ n, data = ci, span = 0.65, degree
= 2)
idx5 <- predict(sua5)
print(tail(idx5))}
if (length[se$d] >= 8) {sua6 <- loess(d ~ n, data = se, span = 0.65, degree
= 2)
idx6 <- predict(sua6)
print(tail(idx6))}
if (length[si$d] >= 8) {sua7 <- loess(d ~ n, data = si, span = 0.65, degree
= 2)
idx7 <- predict(sua7)
print(tail(idx7))}
Adjunto archivo T20.csv
El objeto de incluir if (length['x'$d] >= 8) es eliminar aquellos grupos
cuyo numero sea de poca, ninguna ayuda o quizá hasta se genere un error.
No puedo usar la instrucción antes citada porque se genera un warning
diciendo que sólo se usará el primer elemento.
RStudio me da la cantidad de observaciones de cada grupo (frecuencia), pero
si elimino manualmente el/los grupos, es lento, y por ello intento
almacenar la cantidad de elementos en alguna variable con la cual se evite
usar esos datos.
Agradezco a Javier Marcuzzi su rápida respuesta y espero que en esta
ocasión haya sido explicito.
Nuevamente doy las gracias anticipadas por la ayuda que me presten.
*MANOLO MÁRQUEZ P.*
n,t,d
6,7,6
9,4,3
12,2,3
18,3,6
21,3,3
23,4,2
24,3,1
26,7,2
31,4,2
32,2,1
38,5,6
40,3,2
48,2,8
53,2,5
60,7,7
68,3,8
69,3,1
75,5,6
82,3,7
84,2,2
86,2,2
97,4,11
105,3,8
114,3,9
117,4,3
119,3,2
127,5,8
137,4,10
160,2,23
161,3,1
164,3,3
172,5,8
182,4,10
200,2,18
201,5,1
207,2,6
209,4,2
210,5,1
215,4,5
217,3,2
223,5,6
224,7,1
225,4,1
231,4,6
236,3,5
238,5,2
242,4,4
243,3,1
252,3,9
259,4,7
262,3,3
264,4,2
291,3,27
296,7,5
298,7,2
300,7,2
305,4,5
314,3,9
325,3,11
328,1,3
334,4,6
337,7,3
341,4,4
352,1,11
353,2,1
358,5,5
361,2,3
369,3,8
374,4,5
382,4,8
385,2,3
391,5,6
399,5,8
411,3,12
414,5,3
423,3,9
426,3,3
434,5,8
435,3,1
437,4,2
446,7,9
457,4,3
466,5,9
470,4,2
475,3,5
485,3,10
490,3,5
500,3,10
514,3,14
516,3,2
521,3,5
525,2,4
528,2,3
529,7,1
530,4,1
534,3,4
535,3,1
539,2,4
544,4,5
545,2,1
555,3,10
556,7,1
564,4,8
565,5,1
568,2,3
571,4,3
573,4,2
580,4,7
589,3,9
591,3,2
602,7,11
604,2,2
612,4,8
618,4,2
625,5,7
626,4,1
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Determinar frecuencia
Buenos días colegas, he estado buscando la manera de almacenar la
frecuencia de ocurrencia de 'un', 'do', 'tr' 'cu' ... en el siguiente
script:
da <- read.csv('T20.csv')
un <- da[da[,2] == 1,]
do <- da[da[,2] == 2,]
tr <- da[da[,2] == 3,]
cu <- da[da[,2] == 4,]
ci <- da[da[,2] == 5,]
se <- da[da[,2] == 6,]
Como en este caso, 'un' tiene solamente dos elementos y 'se' no cuenta con
ningún elemento, no se pueden trabajar y pretendo que, con if evitar el/los
intentos de usarlos; pero hay otras tablas que cambian las condiciones.
Intenté usar por ejemplo:
if (length[tr$d] >= 8) {sua3 <- loess(d ~ n, data = tr,span = 0.65, degree
= 2)
pero obtenía: Error in length[tr$d] : objeto de tipo 'builtin' no es
subconjunto
Quise usar: l2 <- count(da$t,"2")
if (l2 >= 8) {sua2 <- loess(d ~ n, data =
ahora responde el sistema: la condición tiene longitud > 1 y sólo el primer
elemento será usado.
Por ello quisiera almacenar en variables la frecuencia de ocurrencia y así
poder usar if. ¿Estoy en lo correcto?
¿Alguno de ustedes me podrían ayudar a este problemita?
Por anticipado adelanto las más cumplidas gracias.
*MANOLO MÁRQUEZ P.*
[[alternative HTML version deleted]]
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Script sin resultados (SOLUCIONADO)
Carlos:
Muchísimas gracias nuevamente, en mi anterior había dicho que te
comentaría, y, ahora lo hago.
Quería 'comerme el pastel con una mordida', era necesario tomar un vector y
'exprimirlo' quedando finalmente así:
library(ggplot2)
ogl <- read.csv('T06.csv')
re <- ogl[ogl[,3] <= 9,]# Gracias por tu post *Carlos*
qu <- ogl[ogl[,3] >= 10,]
sua <- loess(d ~ n, data = re, span = 0.65, degree = 2)
idx <- predict(sua)
sv <- loess(d ~ n, data = qu, span = 0.65, degree = 2)
ix <- predict(sv)
ogl$det <-ifelse(ogl$d >= 10, 'Myr', 'Nor')
gr <- ggplot(data = ogl, aes(x = n, y = d, col = det)) +
geom_point(aes(shape = det))+
geom_smooth(span = 0.65) +
scale_colour_manual(values = c('red', 'blue')) +
theme(legend.position = c(0.17, 0.85)) +
ggtitle('Norm, c/y>=10; Curvas Sep e Iterv d Conf [06]')
print (gr)
# tail(idx,20) ix también
# sink( ? ?.txt) para sacar valores de idx e ix
Bueno pues, gracias y buenos días.
Atentamente;
*MANOLO MÁRQUEZ P.*
[[alternative HTML version deleted]]
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Script sin resultados
Carlos: Nuevamente te agradezco tu respuesta y más aún por la rapidez de la misma. Voy a poner en práctica tu sugerencia, posteriormente te comentaré los resultados. Hasta luego y muchas gracias. Atentamente, *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Script sin resultados
Carlos: Te agradezco mucho tu respuesta tan rápida. Se trata de obtener las incidencias en cada uno de los 39 grupos, aquellos que lo hacen con mayor frecuencia. Es decir del grupo 'n' cuántas veces sucede 1, 2, ... hasta 10. Con este resumen que va ir cambiando, aplicarle loess. Por lo que se refiere a los valores que indico, los obtuve contando físicamente de los datos de TAB. Nuevamente te repito las gracias más cumplidas. *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Script sin resultados completos
Hola Colegas:
Tengo el siguiente script donde no se en donde esta el error, ojalá que
alguno de ustedes me pueda ayudar.
Anticipo las gracias más cumplidas por anticipado.
bas <- read.csv('TAB.csv', header = F)
sv <- 0
sm <- 0
lg <- 0
smas <- matrix (1:390)
for (i in 1:39) {
# if (i == 8) {break}
for (j in 1:10) {
# sm[i] <- 0
sm[j] <- 0
for (k in 1:127) {
if(bas[i,k] == 0) next(j)
if(bas[i, k] == j)
sm[j] <- sm[j] + 1
# smas <- matrix (sm, 10, i)
sv[j*i] <- sm[j]
smas <- matrix (sv, 39, i, byrow = T)
lg <- lg + sm[j] # sm es el ultimo valor de sm
# sm[j + 1] <- 0
} # de k
} # de j
} # de i
# ME DA warnings PERO DA RESULTADOS INCORRECTOS
# AL PONER smas [,2] da 17 10 8 3 7 4 3 9 6 10 debiendo ser 17 19 16 9 5 11
5 2 5 3
# AL PONER smas [,3] da 10 17 10 8 3 7 4 3 9 6 debiendo ser 16 15 9 11 8 9
7 5 3 2
sv tampoco me proporciona resultados completos; parece que al cambiar de i
<- 1 a 2 se le perdiera la pista de en dónde se encuentra y la verdad no
encuentro de donde toma los resultados que saca; lo que sí me parece es que
recicla algún otro vector.
Adjunto el archivo Tab.csv.
Reitero las gracias por la atención que se sirvan darme.
Atentamente,
*MANOLO MÁRQUEZ P.*
5,3,5,7,1,1,4,2,4,10,10,2,1,11,1,2,5,9,5,14,13,9,2,4,2,3,1,2,16,4,1,5,8,2,1,2,2,1,6,5,11,13,8,2,3,3,20,17,4,11,1,3,2,7,8,8,2,5,3,1,1,5,9,3,4,9,1,1,1,3,9,4,9,9,3,8,8,4,10,1,1,3,10,2,5,9,8,3,5,9,1,5,4,1,3,2,2,13,31,5,3,4,1,2,4,4,2,9,7,7,16,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
6,1,1,3,2,2,1,6,7,2,3,1,14,10,2,11,4,2,25,3,3,2,2,1,8,1,6,2,6,2,6,4,15,4,1,3,1,4,6,9,12,6,8,7,9,5,2,3,10,2,3,6,3,1,9,2,4,1,5,3,3,1,5,3,1,12,11,3,2,6,4,11,1,16,1,2,7,10,19,19,1,2,6,2,20,1,7,3,4,5,2,7,11,16,2,21,4,9,11,2,6,3,3,9,5,3,1,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
4,1,18,5,6,3,1,13,1,7,6,7,15,3,2,7,2,2,13,2,6,1,17,4,14,1,5,1,2,2,5,8,3,8,2,2,6,4,5,2,2,2,14,5,3,1,9,4,1,17,1,4,4,1,4,5,7,3,6,6,12,9,9,2,2,13,15,6,3,1,4,8,7,2,11,5,10,14,15,5,4,16,10,1,6,3,7,7,8,2,15,6,1,3,8,4,22,1,4,1,3,12,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
4,9,9,5,1,1,1,7,10,8,17,3,1,5,7,1,6,6,11,7,14,9,2,6,4,1,10,1,3,1,5,4,1,1,13,10,7,5,3,2,1,2,6,1,3,11,2,1,1,1,3,1,8,4,3,7,11,15,4,1,10,3,2,10,1,6,3,2,2,10,16,4,3,1,1,24,5,2,2,1,5,4,3,3,2,2,8,1,6,7,4,7,1,1,2,15,3,3,3,9,3,1,5,7,2,3,13,2,1,1,2,2,12,6,6,5,1,2,16,3,1,12,3,0,0,0,0,0,0,0
2,5,1,8,11,13,10,2,4,1,3,3,20,1,1,4,8,1,5,3,11,7,5,17,5,3,2,16,4,13,1,4,4,4,15,20,11,8,4,2,3,5,1,1,1,25,3,8,2,9,5,14,3,6,11,2,20,9,2,2,21,2,3,22,3,6,5,6,9,21,2,4,2,4,1,2,2,2,5,1,1,15,2,5,4,19,6,6,5,5,10,3,5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1,1,6,3,1,17,1,3,10,5,7,1,2,6,1,1,4,8,10,1,3,4,1,2,2,11,1,1,8,13,3,5,13,3,2,2,7,8,11,9,5,1,8,2,1,2,8,3,7,2,1,11,1,2,2,6,3,2,1,10,4,6,2,7,13,5,13,8,3,9,3,6,3,4,1,17,7,18,10,1,1,10,9,2,1,13,1,1,15,1,1,4,2,8,3,21,3,6,5,1,21,15,6,4,1,2,1,8,1,2,1,5,1,2,1,8,1,0,0,0,0,0,0,0,0,0,0,0,0,0
5,10,5,17,1,3,10,1,6,2,2,5,9,5,17,3,1,1,3,3,3,16,8,3,3,7,2,18,12,5,1,9,5,1,2,3,4,1,6,1,2,4,1,6,16,8,3,5,3,4,12,2,1,1,3,11,6,3,7,2,4,3,1,3,6,17,25,1,6,3,1,6,3,1,2,2,9,6,2,10,5,16,11,1,7,24,1,2,8,10,6,1,3,1,11,8,6,7,8,1,5,10,4,1,5,6,1,4,7,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
2,8,3,3,5,3,10,2,3,8,10,4,13,8,5,16,1,5,3,1,3,14,3,1,9,4,1,23,14,1,8,2,7,2,4,1,11,1,1,9,2,6,3,12,2,6,6,2,6,5,4,6,10,7,19,1,4,2,14,6,4,2,1,2,5,14,10,6,5,3,2,4,8,1,7,7,5,2,11,2,1,9,4,2,5,6,6,2,4,2,9,7,13,5,2,3,10,7,3,1,7,1,4,14,1,13,4,7,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
6,3,5,10,3,6,1,1,19,9,19,5,4,1,12,4,2,11,1,5,10,1,1,9,1,4,15,5,8,1,2,5,9,2,3,2,9,1,5,4,8,4,2,9,6,5,5,4,13,8,32,1,9,1,2,1,8,1,15,30,3,3,4,21,9,3,1,5,6,4,9,2,4,5,11,4,6,1,2,1,1,2,15,4,1,5,2,9,1,6,5,10,2,7,1,18,19,3,4,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
8,7,26,8,6,1,3,4,2,6,4,4,1,3,15,2,8,5,3,27,3,6,6,2,20,3,1,1,3,1,3,6,25,3,1,10,3,6,14,8,5,1,12,5,14,1,4,4,10,5,13,5,9,7,5,2,8,9,1,5,2,5,1,1,5,25,4,5,3,3,1,9,2,2,4,5,3,1,5,4,1,3,2,11,2,2,8,10,5,2,1,3,4,6,3,2,1,1,1,1,8,7,2,6,8,1,3,2,1,12,3,1,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
6,2,1,10,6,5,1,7,3,13,1,3,8,13,6,11,6,6,1,6,1,6,1,5,3,8,12,11,1,5,6,14,5,1,2,13,9,13,7,11,9,1,18,1,17,6,1,2,1,3,2,15,6,1,3,3,12,1,5,7,8,5,6,9,1,5,3,23,15,7,1,3,6,2,7,5,4,2,1,3,4,12,7,4,1,2,5,6,16,15,10,7,1,2,1,7,2,1,3,3,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
11,2,4,7,2,7,23,12,1,4,4,2,16,12,10,2,4,4,1,7,6,3,3,5,7,14,8,4,3,2,1,13,4,3,12,1,14,5,11,5,5,6,1,21,1,1,10,7,12,13,1,4,3,6,3,4,12,4,1,1,3,5,13,2,2,11,1,3,2,1,6,1,10,12,2,1,2,2,1,8,5,1,3,5,4,5,22,1,9,2,4,11,4,2,1,5,1,4,1,8,2,2,4,1,4,15,5,3,5,3,3,2,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
1,1,2,1,5,19,8,4,4,5,1,2,7,13,2,8,2,5,3,1,8,25,4,1,16,1,4,5,5,15,5,11,19,4,4,5,3,3,10,2,12,1,8,1,6,12,8,2,3,8,5,3,1,1,6,1,2,7,7,3,5,4,1,3,4,1,5,4,7,6,1,2,11,8,1,1,17,5,2,1,1,5,9,3,6,6,6,9,1,2,2,1,5,2,8,6,10,18,20,1,11,23,2,1,10,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
[R-es] Instalar 'swirl'
Estimado Carlos: Como siempre haz respondido con mucha rapidez, muchas gracias. Hice ya el intento, abrí la terminal y escribí pkg-config --libs libcurl, pero el sistema responde: Package libcurl was not found in the pkg-config search path. Perhaps you should add the directory containing `libcurl.pc' to the PKG_CONFIG_PATH environment variable No package 'libcurl' found Y no se como hacerlo, ¿me podrías decir como hacerlo? *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Script con error SOLUCIONADO
Carlos, gracias por tu rápida respuesta. Mira prefiero que aparezcan *todos* los ceros porque de esa manera, me doy cuenta de cuando ocurren valores fuera del rango. Ahora que si se eliminan todos me sirve pero menos. Te repito mi agradecimiento. *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Script con error SOLUCIONADO
Gracias por la ayuda que me proporcionaron Luisfo Llador, Karel López
Quintero y Carlos Ortega ya está caminando el script; me queda sin embargo
una duda en su funcionamiento, que quedó de esta manera:
j <- 1
sma <- 0
dat <- read.csv('1A.csv')
for(i in 1:length(dat$d)){
if(dat$d[i] > 5){
j <- j + 1
sma[j] <- 0}
else{
sma[j] <- sma[j] + 1}
}
La duda consiste en que dat$d[i] tiene así los primeros 11 datos: 5, 3, 5,
7, 1, 1, 4, 2, 14, 10, 3 y sma me da 3, 4, 0, 1, 0, 0, 0, 6, 3, 3,1; pero
entonces entre 3 y 4 debería estar un 0; y después entre 4 y 1 debería
haber 0, 0 y no sólo 0.
Entonces pienso que probablemente 'metí la pata', pero no encuentro donde.
¿Me podrían hacer el favor de volverme a ayudar?
Nuevamente anticipo las gracias más cumplidas.
*MANOLO MÁRQUEZ P.*
[[alternative HTML version deleted]]
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Script con error
Tengo un vector 'dt' con 95 observaciones cuyos valores fluctúan entre 1 y
32 y quiero obtener las cantidades que sean <=5, y cuando haya una mayor el
contador se vuelve 0, hasta que encuentre otra cantidad <= 5 para volver a
iniciar la cuenta.
el script está así:
for(i in 1:length(dt)) {
if(dt[i]<=5) a[j]=a[j]+1
else
{ j <- j + 1
a[j] = 0 }
}
y el sistema me indica:
Error in dt[i] : objeto de tipo 'closure' no es subconjunto
Me pueden ayudar, diciéndome ¿qué documento puedo consultar para solucionar
este error? Por anticipado les doy las más cumplidas gracias.
*MANOLO MÁRQUEZ P.*
[[alternative HTML version deleted]]
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] ¿Qué pasa con RStudio? SOLUCIONADO
Muchísimas gracias a Karel L y Carlos por sus comentarios instalé el paquete y trabaja ya bien. *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] OT ¿Que pasa con RStudio?
Buenos días colegas: Alguien sabe ¿qué pasa con Rstudio y Ubuntu 15.10?, porque no se puede acceder a Rstudio; aparentemente falta el paquete libgstreamer 0.10-0, pero no lo encuentro; ¿será que es de otra versión de Ubuntu? Ojalá que alguien me pueda orientar, en tanto, anticipo las más cumplidas gracias. *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Salida sink()
Estimado Javier: Mucho te agradezco tu rápida respuesta, voy a leer las referencias que me das para ver cual es la que me conviene y/o la que debo usar. *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Salida de sink()
Hola Colegas, feliz Año 2016. Quisiera saber si existe la manera de hacer que la salida de sink(), pueda hacerse hacia un archivo de Libre Office Calc, de una manera directa; porque hasta ahora lo he estado convirtiendo con Writer y es algo laborioso. Por su atención les anticipo las gracias más cumplidas. *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Intento de script
Hola Colegas:
Estoy tratando de hacer mi primer script y lo tengo así:
dat - read.csv(M5.csv,header = TRUE, sep = ,)
library(ggplot2)
source('~/Documentos/WORK/Scripts/gra.r',echo =TRUE)
Por otra parte gra.r está:
grafi - function(dat){
dato - dat
attach(dato)
y.loess - loess(y ~ x, span=0.65, data.frame(x=or, y=dt))
y.predict - predict(y.loess, data.frame(x=or))
plx-predict(loess(dt ~ or, data=dato), se=T)
detach(dato)
dato$Detec-ifelse(dat$t==7,Aumentado,Natural)
ggplot(data = dato, aes(x=or, y=dt, col=Detec)) +
etcétera
el problema surge al tratarse la instrucción ' y. predict -' porque
RStudio indica y.predicted ... [TRUNCATED].
Alguien me podría decir la razón y la manera de resolver el atorón; por
anticipado doy las más cumplidas gracias.
*MANOLO MÁRQUEZ P.*
[[alternative HTML version deleted]]
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] Menor que 1000
Estimados Colegas: Estoy tratando de hacer unas gráficas y al pedir ejecutar la última línea, el equipo me dice: geom_smooth: method=auto and size of largest group is 1000, so using loess. Use 'method = x' to change the smoothing method. La línea en cuestión es: ggplot(data = dat, aes(x=srt, y=d_t, col=Detec)) + geom_point(aes(shape=Detec)) + geom_smooth(span=0.65, aes(group=1))+ scale_colour_manual(values=c(black,red)) + ggtitle(Curva Suavizada con Intervalo de Confianza + Detectados y No Detectados) Los datos son 348 observaciones de 6 variables. *¿Me puede alguien ayudar para decirme que debo cambiar y así deje de salir dicho aviso? Consulté la ayuda de ggplot en soporte de R Studio pero no que busco.* *Anticipo las más cumplidas gracias.* *MANOLO MÁRQUEZ P.* [[alternative HTML version deleted]] ___ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es
[R-es] reshape2
Hace tiempo tenÃa la intención de convertir la salida de sink() en formato
ancho; ya Javier Marcuzzi me hizo favor de sugerir el paquete reshape2,
pero no lo habÃa hecho, y ahora, no encuentro lo que me falta o lo que hice
mal.
Antecedentes a) uso R 3.0.3 en W7 b) para entrenarme tome como modelo
publicado en seananderson.ca/2013/10/19/reshape.html.
Como no pude cargar airquality dataset load('airquality dataset'); lo
bajé en forma de texto y lo convertà en airquality.csv y usé
nn-read.table('airquality.csv',header=T,sep=',')
El primer paso indica names(airquality) - tolower(names(airquality)) pero
no lo usé porque la ayuda indica que para convertir mayúsculas a minúsculas
o viceversa.
Lo siguiente es aq1-melt(airquality) # a[ir] q[uality] [l]ong format sin
embargo el sistema respondeNo id variables; using all as measure
variables.
Alguien me podrÃa indicar que está mal o que falta, les agradezco de
antemano cualquier ayuda que me den.
*MANOLO MÃRQUEZ P.*
[[alternative HTML version deleted]]
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
