<div dir="ltr">o exercicio e' verificar o pq isso funciona...<div><br></div><div><div>set.seed(1)</div><div>amostra <- rpois(100,lambda=2.5)</div><div>grps <- unlist(mapply(rep, 1:3, c(25, 40, 35)))</div><div>sets <- split(amostra, sample(grps))</div>

</div><div><br></div><div>b</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">Em 13 de fevereiro de 2014 00:47, Jodavid Ferreira <span dir="ltr"><<a href="mailto:jodavid.arts@gmail.com" target="_blank">jodavid.arts@gmail.com</a>></span> escreveu:<br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Olá pessoal,estou com dúvida na hora de realizar este problema,<div><br></div><div>O problema é:</div><div>

<br></div><div>Gero uma amostra de tamanho 100 por exemplo com dist. poisson</div><div><br></div><div>

amostra<-rpois(100,lambda=2.5)</div><div>amostra</div><div><br></div><div><div> [1] 1 4 8 0 2 4 2 1 2 2 6 3 3 0 2 2 1 1 1 2 1 2 4 2 2 2 1 0 4 6 5 2 1 2 2 3 3 1 2</div><div> [40] 0 3 5 5 5 2 2 2 5 3 2 2 3 3 2 2 2 3 3 0 2 2 1 2 1 1 4 2 0 3 4 2 2 3 4 4 2 4 1</div>



<div> [79] 2 2 1 0 2 1 4 3 2 2 0 3 3 1 3 3 2 3 3 1 5 0</div></div><div><br></div><div>agora com esses valores quero podemos dizer que quebrar em três amostas, a primeira de tamanho 25, a segunda, 40, e a terceira 35. Só que o problema é que tenho que sortear valores para a primeira amostra e estes valores tem que sair da amostra original.</div>



<div><br></div><div>ou seja, quando sortear para a primeira amostra, chamar amostra1, só deve restar 75 valores para que eu possa dividir e mais duas.</div><div><br></div><div>Estava pensando em utilizar o sample, para sortear os valores e alocar a cada amostra, mas como faço para remover os valores entre uma amostra e outra?</div>

<span class="HOEnZb"><font color="#888888">

<div><div><br></div>-- <br><div dir="ltr">Jodavid Ferreira<br>Responsável pela comissão de Comunicação do MJ da RCCPB - <a href="http://rccpbjovem.com" target="_blank">http://rccpbjovem.com</a><div>Membro da equipe Estadual do Ministério de Comunicação da RCCPB - <a href="http://rccpb.com.br" target="_blank">http://rccpb.com.br</a><br>



Responsável pelo Ministério de Comunicação do Grupo de Oração Boa Esperança - <a href="http://grupoboaesperanca.com" target="_blank">http://grupoboaesperanca.com</a><br>Bacharelando em Estatística - UFPB<br>Estagiário no Laboratório de Estatística Aplicada ao Processamento de Imagens e Geoprocessamento - <a href="http://de.ufpb.br/~leapig" target="_blank">http://de.ufpb.br/~leapig</a><br>



Site Pessoal - <a href="http://jodavidferreira.com" target="_blank">http://jodavidferreira.com</a></div><div>Twitter - <a href="http://twitter.com/JodavidFerreira" target="_blank">@JodavidFerreira</a></div></div>
</div></font></span></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>