paste('(', apply(do.call(expand.grid, rep(list(POP1), 3)), 1, paste, collapse=','), ')', sep='')

onde vc ve^ um 3, vc troca por qtos vc quiser.

btw, codigo nao-testado

boa sorte


Em 22 de agosto de 2014 22:20, <andrebvs@bol.com.br> escreveu:
Olá pessoas,

Como faço pra generalizar a saída abaixo para mais de 2 amostras com reposição:

POP1  <- c(01,03,06,08,10)
COMB1 <- expand.grid(POP1,POP1)
Amostras <- cbind(paste("(",unlist(COMB1[2]),",",unlist(COMB1[1]),")",sep=""))
Amostras
 
E outra coisa, se eu quiser combinar amostras com reposição de tamanho 3 ou mais, terei que colocar por exemplo: expand.grid(POP1,POP1,POP1), não teria uma maneira mais simplificada de resolver isso não?

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.