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

[Paulo Justiniano]

unique no vetor

On Tue, 29 May 2012, andrebvs wrote:

> Obrigado Paulo Justiniano pela resposta, problema 1 resolvido. Agora, como acrescentar (nesses comandos apply) algum comando que
> elimine valores repetidos em cada vetor combinado?
> 
> Att.
> André
> 
> _______________________________________________________________________________________________________________________________________
> Em 27/05/2012 23:59, Paulo Justiniano < paulojus em leg.ufpr.br > escreveu:
> 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é
> >
> >
> 
> 
>