ap0 <- combn(1:10, 4)
ap1 <- apply(ap, 2, function(x) paste("vet", x, sep="")) ap2 <- apply(ap1, 2, function(x) unname(unlist(sapply(x, get))))

ap2 contem uma lista dos vetores


On Sun, 27 May 2012, andrebvs wrote:

Olá pessoal, gostaria de saber como combinar vetores de tamanhos diferentes, 
por exemplo:

vet1 <- c(02,03,04,05,06,07,08,10,30,50,70,90)
vet2 <- c(10,11,13,14,15,16,17,18,19,31,51,71,91)
vet3 <- c(02,22,23,24,25,26,27,28,42,62,82)
vet4 <- c(03,13,23,30,31,33,34,35,36,37,38,39,43,53,63,73,83,93)
vet5 <- c(04,14,24,34,42,43,44,45,46,47,48,54,64,74,84,94)
vet6 <- c(05,15,25,35,45,50,51,53,54,55,56,57,58,59,65,75,85,95)
vet7 <- c(06,16,26,36,46,56,62,63,64,65,66,67,68,76,86,96)
vet8 <- c(07,17,27,37,47,57,67,70,71,73,74,75,76,77,78,79,87,97)
vet9 <- c(08,18,28,38,48,58,68,78,82,83,84,85,86,87,88,98)
vet10 <- c(19,39,59,79,90,91,93,94,95,96,97,98,99)

uma combinação seria, por exemplo: vet1,vet2,vet7,vet10, me retornaria o 
seguinte:

02,03,04,05,06,07,08,10,30,50,70,90,10,11,13,14,15,16,17,18,19,31,51,71,91,06,16,26,36,46,56,62,63,64,65,66,67,68,7
6,86,96,
19,39,59,79,9 0,91,93,94,95,96,97,98,99.

então, quero combinar vetores tomandos 4 a 4 nesses 10 vetores, desde modo, 
terei um total de 210 vetores combinados
ao todo.
Se não for pedir muito, gostaria tb que tais resultados nao viessem com números 
repetidos.

desde já agradeço.

Att.
André

_______________________________________________
R-br mailing list
[email protected]
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.

Responder a