Hola Rolando, Podrias adaptar lo siguiente:
set.seed(10) X <- matrix(sample(0:1, 100, replace = TRUE), ncol = 10) colnames(X) <- LETTERS[1:10] X Y <- X >= 1 Y <- apply(Y, 2, as, "numeric") #boolean matrix rownames(Y) <- rownames(X) Z <- t(Y) %*% Y #adjacency matrix Z[Z >= 1] <- 1 diag(Z) <- 0 Z Saludos, Jorge.- 2014-06-14 0:08 GMT+10:00 Rolando Valdez <[email protected]>: > Hola, > > Estoy tratando de crear una matriz cuadrada, binaria y no tengo idea por > dónde comenzar. > > Los datos que tengo son patentes e inventores por patente, las patentes > las identifico por su código y a los inventores por nombre y también los > tengo codificados. > > Deseo hacer una matriz de nxn en donde los renglones son inventores de la > A a la Z y columnas son los mismos inventores de la A a la Z, las entradas > de la matriz corresponderán a 1 si el inventor A tiene una patente con el > inventor K...L...M, cualquier otra situación será cero. Evidentemente la > matriz > debe tener ceros en la diagonal pues el inventor B no puede patentar algo > con el inventor B. > > Pues bien, intenté hacerlo en excel con tablas dinámicas pero no me > permite poner la misma variable (inventores) en renglones y columnas. Pensé > que se puede hacer en R, pero no tengo idea por dónde empezar, nisiquiera > cuál sería la mejor forma de ordenar los datos. > > Si pudieran ayudarme sugiréndome algún manual o algún ejemplo para > comenzar, se los agradezco de antemano. > > Saludos. > > Rolando Valdez > > _______________________________________________ > R-help-es mailing list > [email protected] > https://stat.ethz.ch/mailman/listinfo/r-help-es > [[alternative HTML version deleted]]
_______________________________________________ R-help-es mailing list [email protected] https://stat.ethz.ch/mailman/listinfo/r-help-es
