<div dir="ltr">paste('(', apply(do.call(expand.grid, rep(list(POP1), 3)), 1, paste, collapse=','), ')', sep='')<br><div><br></div><div>onde vc ve^ um 3, vc troca por qtos vc quiser.</div><div>

<br></div><div>btw, codigo nao-testado</div><div><br></div><div>boa sorte</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">Em 22 de agosto de 2014 22:20,  <span dir="ltr"><<a href="mailto:andrebvs@bol.com.br" target="_blank">andrebvs@bol.com.br</a>></span> escreveu:<br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div>Olá pessoas,<br><br></div>
<div style="font-family:verdana,Helvetica,sans-serif">Como faço pra generalizar a saída abaixo para mais de 2 amostras com reposição:<br><br>
<div>POP1  <- c(01,03,06,08,10)</div>
<div>COMB1 <- expand.grid(POP1,POP1)</div>
<div>Amostras <- cbind(paste("(",unlist(COMB1[2]),",",unlist(COMB1[1]),")",sep=""))</div>
<div>Amostras</div>
</div>
<div style="font-family:verdana,Helvetica,sans-serif"> <br>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?<br>

<br>desde já grato!<br><br>Att.<br>André</div><br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>