Combinar linhas cuja interseção seja zero...

Oi André, Não sei se entendi direito, mas fiz um script para extrair as linhas sem interseção, veja se ajuda: dat <- data.frame(1:6,matrix(c(1:5,3:7,5:9,6:10,11:15,2:6),,5,byrow=T)) colnames(dat) <- c("id","A","B","C","D","E") numrows <- length(dat) for(i in 1:(numrows-1)){ for(j in i:numrows){ match <- 0 for(k in dat[i,]){ if(k %in% dat[j,]){ match <- 1} } if(!match){ print(dat[i,]) print(dat[j,]) } } } Abraços, Jasmine
Em 27 de set de 2017, à(s) 01:43, andrebvs--- via R-br <r-br@listas.c3sl.ufpr.br> escreveu:
Caros colegas, uma pequena dúvida. Como posso combinar apenas as linhas de um data.frame(ou matriz) cuja interseção seja zero?
Exemplo:
dat <- data.frame(1:6,matrix(c(1:5,3:7,5:9,6:10,11:15,2:6),,5,byrow=T)) colnames(dat) <- c("id","A","B","C","D","E")
# Saída:
id A B C D E 1 1 2 3 4 5 2 3 4 5 6 7 3 5 6 7 8 9 4 6 7 8 9 10 5 11 12 13 14 15 6 2 3 4 5 6
# Resultado desejado:
id A B C D E A B C D E id 1 1 2 3 4 5 6 7 8 9 10 4 1 1 2 3 4 5 11 12 13 14 15 5
desde já grato!
Att. André _______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
participantes (2)
-
andrebvs@bol.com.br
-
Jasmine Moreira