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.