<div dir="ltr">Muito legal! Já passei por essa necessidade e não soube como resolver.<div><br></div><div>Aí, gostaria de fazer uma pergunta em cima dessa. Como fazer para repetir essa sub-amostragem automaticamente? Tipo fazer 300,500,... sub-amostras? </div></div><div class="gmail_extra"><br><div class="gmail_quote">Em 29 de agosto de 2016 07:50, Marcos Bissoli via R-br <span dir="ltr"><<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</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">Bom dia,<div><br></div><div>Muito obrigado. Simples e suficiente para resolver meu problema.</div><div><br></div><div>Ainda fico na dúvida do porquê daquele meu código dar erro no banco de 1600 observações e não em amostras menores.</div><div><br></div><div>Algo mais sobre o assunto encontrei em:</div><div><br></div><div><a href="http://www.statmethods.net/management/subset.html" target="_blank">http://www.statmethods.net/<wbr>management/subset.html</a><br></div><div><br></div><div>Saudações,</div><div><br></div><div>Marcos</div><div><div class="h5"><div class="gmail_extra"><br><div class="gmail_quote">Em 28 de agosto de 2016 21:40, salah <span dir="ltr"><<a href="mailto:salah3.1416@gmail.com" target="_blank">salah3.1416@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">Caro,<div><br></div><div>segue sugestão:</div><div><br></div><div><span><div>Id <- 1:20</div><div>X <- c("A","B","A","C","A","A","B",<wbr>"A","C","A","A","B","A","C","A<wbr>","A","B","A","C","A")</div><div>Dados <- data.frame(Id,X)</div><div>IdDados <- sample(Dados$Id,5,replace = FALSE)</div><div><br></div></span><div>DadosAm = subset(Dados, Id %in% IdDados)</div><div>DadosAm</div><div><br></div><div>saudações</div><div><div><br>Em Dom, Ago 28, 2016 em 8:29 , Marcos Bissoli via R-br <<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>> escreveu:<br>
<blockquote type="cite"><div dir="ltr">Prezados,<div><br></div><div>Peço desculpas de antemão se meu problema é de extrema trivialidade ou se o tema já fora aqui debatido. No entanto, pesquisei os arquivos do fórum e não encontrei, dessa vez, uma solução.</div><div><br></div><div>Gerei um código simplificado de meu problema. Meu intuito é extrair uma sub-amostra de uma amostra de dados já coletados para fins de análise com melhor equilíbrio entre os grupos observados. Assim, elaborei algo semelhante com o abaixo.</div><div><br></div><div><div>Id <- 1:20</div><div>X <- c("A","B","A","C","A","A","B",<wbr>"A","C","A","A","B","A","C","A<wbr>","A","B","A","C","A")</div><div>Dados <- data.frame(Id,X)</div><div>IdDados <- sample(Dados$Id,5,replace = FALSE)</div><div>DadosAm <- Dados[id==IdDados[1],]</div><div>for (i in 2:5) DadosAm <- rbind(DadosAm,Dados[id==IdDado<wbr>s[i],])</div><div>DadosAm</div></div><div><br></div><div>Este código funciona, e consigo extrair uma sub-amostra aleatória de n1=5 a partir de uma amostra inicial de n=20 em data.frame.</div><div><br></div><div>No entanto, meu real problema é gerar uma sub-amostra de n1=88 em uma amostra inicial de n=1668. Mas, quando tento fazer com tais dimensões a sub-amostra gera uma série de NA's, que não existem na amostra original.</div><div><br></div><div>Chequei o funcionamento na amostra real e maior, e percebi que o primeiro Id de IdDados não corresponde ao Id de Dados adicionado já no primeiro comando de criação de DadosAm.</div><div><br></div><div>Creio que seja algum erro meu de implementação, mas cheguei a fazer testes com simulações de n e n1 maiores e deram certo. Mas quando vou para o meu banco real permanece o problema.</div><div><br></div><div>Desde já, agradeço qualquer ajuda, e reitero minhas desculpas pela possível trivialidade da dúvida.</div><div><br></div><div>Saudações acadêmicas,</div><div><br clear="all"><div><br></div>-- <br><div data-smartmail="gmail_signature"><div dir="ltr"><div><div dir="ltr">MARCOS BISSOLI<br><br></div><div dir="ltr">Faculdade de Nutrição<br>Universidade Federal de Alfenas<br><br>Blog: <span style="font-size:12.8px"><a href="http://bocademiamaldita.blogspot.com/" target="_blank">bocademiamaldita.blogspo<wbr>t.com/</a></span></div><div>E-mail: <a href="mailto:mbissoli@gmail.com" target="_blank">mbissoli@gmail.com</a><br>Twitter: #mbissoli<div><br>Alfenas, Minas Gerais, Brasil<br><br><br>*****Pense na Natureza antes de Imprimir*****<br>Divulgue ON-LINE<br><br>Eu apoio a ENEN "na luta por um Brasil sem fome"<br><br>"por ĉiu popolo ties propran lingvon, por ĉiuj popoloj la esperantan"<br>(para cada povo sua própria língua, para todos os povos o Esperanto)</div><div><br></div><div>E nunca votarei no PSDB/DEM!</div></div></div></div></div>
</div></div>
</blockquote></div></div></div></blockquote></div><br><br clear="all"><div><br></div>-- <br><div data-smartmail="gmail_signature"><div dir="ltr"><div><div dir="ltr">MARCOS BISSOLI<br><br></div><div dir="ltr">Faculdade de Nutrição<br>Universidade Federal de Alfenas<br><br>Blog: <span style="font-size:12.8px"><a href="http://bocademiamaldita.blogspot.com/" target="_blank">bocademiamaldita.blogspo<wbr>t.com/</a></span></div><div>E-mail: <a href="mailto:mbissoli@gmail.com" target="_blank">mbissoli@gmail.com</a><br>Twitter: #mbissoli<div><br>Alfenas, Minas Gerais, Brasil<br><br><br>*****Pense na Natureza antes de Imprimir*****<br>Divulgue ON-LINE<br><br>Eu apoio a ENEN "na luta por um Brasil sem fome"<br><br>"por ĉiu popolo ties propran lingvon, por ĉiuj popoloj la esperantan"<br>(para cada povo sua própria língua, para todos os povos o Esperanto)</div><div><br></div><div>E nunca votarei no PSDB/DEM!</div></div></div></div></div>
</div></div></div></div>
<br>______________________________<wbr>_________________<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" rel="noreferrer" target="_blank">https://listas.inf.ufpr.br/<wbr>cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" rel="noreferrer" target="_blank">http://www.leg.ufpr.br/r-br-<wbr>guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div><font size="1"><span style="color:rgb(0,0,0);font-family:Helvetica">Graciliano Galdino A. dos Santos</span><br style="color:rgb(0,0,0);font-family:Helvetica">Biólogo</font></div><div><font size="1">Doutorando em Ciências Florestais - PPGCF</font></div><div><font size="1">Universidade Federal Rural da Amazônia - UFRA</font></div></div></div>
</div>