<div dir="ltr">Da para fazer com do.call() e by():<div><br></div><div><div>do.call(rbind, by(dados, dados[,2], function(x, ...) x[sample(1:nrow(x), ...), ], size=1))</div></div><div><br></div><div style>Depois é só ir mudando o parametro size para outros tamanhos... e se quiser amostragem com reposição, adicionar o replace=TRUE depois do size.</div>
</div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/5/23 Hélio Gallo Rocha <span dir="ltr"><<a href="mailto:heliogallorocha@gmail.com" target="_blank">heliogallorocha@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr">Caros da Lista<div><br><div>Com os dados hipotéticos abaixo:</div><div><br></div><div><div><div>ponto=c(rep(3001,6),rep(3002,6),rep(3003,6)) </div><div>planta=c(rep(seq(1:6),3))</div><div>valor=seq(1.5,10,.5)  </div>

<div>dados=cbind(ponto,planta,valor);dados</div></div><div><br></div><div><div>     ponto planta valor</div><div> [1,]  3001      1   1.5</div><div> [2,]  3001      2   2.0</div><div> [3,]  3001      3   2.5</div><div> [4,]  3001      4   3.0</div>

<div> [5,]  3001      5   3.5</div><div> [6,]  3001      6   4.0</div><div> [7,]  3002      1   4.5</div><div> [8,]  3002      2   5.0</div><div> [9,]  3002      3   5.5</div><div>[10,]  3002      4   6.0</div><div>[11,]  3002      5   6.5</div>

<div>[12,]  3002      6   7.0</div><div>[13,]  3003      1   7.5</div><div>[14,]  3003      2   8.0</div><div>[15,]  3003      3   8.5</div><div>[16,]  3003      4   9.0</div><div>[17,]  3003      5   9.5</div><div>[18,]  3003      6  10.0</div>

</div><div><br></div><div>então temos 3 pontos ( 3001, 3002, 3003) </div><div>seis plantas em cada ponto ( 1,2,3,4,5,,6)</div><div><br></div><div>Já tentei usar sample, mas sorteia aleatoriamente</div>
<div><br></div><div>Preciso que seja sorteada uma planta de cada ponto, depois vou sortear duas plantas de cada ponto, e assim sucessivamente</div><div><br></div><div>Agradeço desde já</div><span class="HOEnZb"><font color="#888888"><div>
<br></div>
<div><br></div>-- <br>Hélio Gallo Rocha<br>IFSULDEMINAS - Câmpus Muzambinho<br>
</font></span></div></div></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>