[R-br] Combinar vetores com tamanhos diferentes...

[Paulo Justiniano]

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