
<!DOCTYPE html>

<html>

<head>

<title></title>

</head>

<body><div>Com ou sem reposição?<br></div>

<div><br></div>

<div>De qualquer forma, vai envolver um loop com o cálculo e armazenamento de alguma estimativa para depois analisar tudo. Você pode usar um único comando sample antes do loop, ou então usá-lo novamente a cada iteração do loop.</div>

<div><br></div>

<div id="sig4487139"><div id="signature" class="signature"><a href="http://lattes.cnpq.br/9234772336296638" title="Currículo Lattes">Leonardo Ferreira Fontenelle</a><br></div>

</div>

<div><br></div>

<div><br></div>

<div>Em Seg 29 ago. 2016, às 09:47, Graciliano Galdino via R-br escreveu:<br></div>

<blockquote type="cite"><div dir="ltr"><div>Muito legal! Já passei por essa necessidade e não soube como resolver.<br></div>

<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? <br></div>

</div>

<div><div><br></div>

<div defang_data-gmailquote="yes"><div>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">r-br@listas.c3sl.ufpr.br</a>></span> escreveu:<br></div>

<blockquote style="margin-top:0px;margin-right:0px;margin-bottom:0px;margin-left:0.8ex;border-left-width:1px;border-left-style:solid;border-left-color:rgb(204, 204, 204);padding-left:1ex;" defang_data-gmailquote="yes"><div dir="ltr"><div>Bom dia,<br></div>

<div><br></div>

<div>Muito obrigado. Simples e suficiente para resolver meu problema.<br></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.<br></div>

<div><br></div>

<div>Algo mais sobre o assunto encontrei em:<br></div>

<div><br></div>

<div><a href="http://www.statmethods.net/management/subset.html">http://www.statmethods.net/<wbr>management/subset.html</a><br></div>

<div><br></div>

<div>Saudações,<br></div>

<div><br></div>

<div>Marcos<br></div>

<div><div><div><div><br></div>

<div defang_data-gmailquote="yes"><div>Em 28 de agosto de 2016 21:40, salah <span dir="ltr"><<a href="mailto:salah3.1416@gmail.com">salah3.1416@gmail.com</a>></span> escreveu:<br></div>

<blockquote style="margin-top:0px;margin-right:0px;margin-bottom:0px;margin-left:0.8ex;border-left-width:1px;border-left-style:solid;border-left-color:rgb(204, 204, 204);padding-left:1ex;" defang_data-gmailquote="yes"><div>Caro,<br></div>

<div><br></div>

<div>segue sugestão:<br></div>

<div><br></div>

<div><div><span></span><br></div>

<div><span>Id <- 1:20</span><br></div>

<div><span>X <- c("A","B","A","C","A","A","B",<wbr>"A","C","A","A","B","A","C","A<wbr>","A","B","A","C","A")</span><br></div>

<div><span>Dados <- data.frame(Id,X)</span><br></div>

<div><span>IdDados <- sample(Dados$Id,5,replace = FALSE)</span><br></div>

<div><span></span><br></div>

<div><span></span><br></div>

<div>DadosAm = subset(Dados, Id %in% IdDados)<br></div>

<div>DadosAm<br></div>

<div><br></div>

<div>saudações<br></div>

<div><div><div><br></div>

<div>Em Dom, Ago 28, 2016 em 8:29 , Marcos Bissoli via R-br <<a href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>> escreveu:<br></div>

<div> <br></div>

<blockquote type="cite"><div dir="ltr"><div>Prezados,<br></div>

<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.<br></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.<br></div>

<div><br></div>

<div><div>Id <- 1:20<br></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")<br></div>

<div>Dados <- data.frame(Id,X)<br></div>

<div>IdDados <- sample(Dados$Id,5,replace = FALSE)<br></div>

<div>DadosAm <- Dados[id==IdDados[1],]<br></div>

<div>for (i in 2:5) DadosAm <- rbind(DadosAm,Dados[id==IdDado<wbr>s[i],])<br></div>

<div>DadosAm<br></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.<br></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.<br></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.<br></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.<br></div>

<div><br></div>

<div>Desde já, agradeço qualquer ajuda, e reitero minhas desculpas pela possível trivialidade da dúvida.<br></div>

<div><br></div>

<div>Saudações acadêmicas,<br></div>

<div><div><br></div>

<div><br></div>

<div>-- <br></div>

<div><div dir="ltr"><div><div dir="ltr"><div>MARCOS BISSOLI<br></div>

</div>

<div dir="ltr"><div>Faculdade de Nutrição<br></div>

<div>Universidade Federal de Alfenas<br></div>

<div><br></div>

<div>Blog: <span class="size" style="font-size:12.8px"><a href="http://bocademiamaldita.blogspot.com/">bocademiamaldita.blogspo<wbr>t.com/</a></span><br></div>

</div>

<div><div>E-mail: <a href="mailto:mbissoli@gmail.com">mbissoli@gmail.com</a><br></div>

<div>Twitter: #mbissoli<br></div>

<div><div><br></div>

<div>Alfenas, Minas Gerais, Brasil<br></div>

<div><br></div>

<div><br></div>

<div>*****Pense na Natureza antes de Imprimir*****<br></div>

<div>Divulgue ON-LINE<br></div>

<div><br></div>

<div>Eu apoio a ENEN "na luta por um Brasil sem fome"<br></div>

<div><br></div>

<div>"por ĉiu popolo ties propran lingvon, por ĉiuj popoloj la esperantan"<br></div>

<div>(para cada povo sua própria língua, para todos os povos o Esperanto)<br></div>

</div>

<div><br></div>

<div>E nunca votarei no PSDB/DEM!<br></div>

</div>

</div>

</div>

</div>

</div>

</div>

</blockquote></div>

</div>

</div>

</blockquote></div>

<div><br></div>

<div><br></div>

<div><br></div>

<div>-- <br></div>

<div><div dir="ltr"><div><div dir="ltr"><div>MARCOS BISSOLI<br></div>

</div>

<div dir="ltr"><div>Faculdade de Nutrição<br></div>

<div>Universidade Federal de Alfenas<br></div>

<div><br></div>

<div>Blog: <span class="size" style="font-size:12.8px"><a href="http://bocademiamaldita.blogspot.com/">bocademiamaldita.blogspo<wbr>t.com/</a></span><br></div>

</div>

<div><div>E-mail: <a href="mailto:mbissoli@gmail.com">mbissoli@gmail.com</a><br></div>

<div>Twitter: #mbissoli<br></div>

<div><div><br></div>

<div>Alfenas, Minas Gerais, Brasil<br></div>

<div><br></div>

<div><br></div>

<div>*****Pense na Natureza antes de Imprimir*****<br></div>

<div>Divulgue ON-LINE<br></div>

<div><br></div>

<div>Eu apoio a ENEN "na luta por um Brasil sem fome"<br></div>

<div><br></div>

<div>"por ĉiu popolo ties propran lingvon, por ĉiuj popoloj la esperantan"<br></div>

<div>(para cada povo sua própria língua, para todos os povos o Esperanto)<br></div>

</div>

<div><br></div>

<div>E nunca votarei no PSDB/DEM!<br></div>

</div>

</div>

</div>

</div>

</div>

</div>

</div>

</div>

<div><br></div>

<div>______________________________<wbr>_________________<br></div>

<div> R-br mailing list<br></div>

<div> <a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br></div>

<div> <a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/<wbr>cgi-bin/mailman/listinfo/r-br</a><br></div>

<div> Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-<wbr>guia</a>) e forneça código mínimo reproduzível.<br></div>

</blockquote></div>

<div><br></div>

<div><br></div>

<div><br></div>

<div>-- <br></div>

<div><div dir="ltr"><div><span class="size" style="font-size:x-small"><span class="colour" style="color:rgb(0, 0, 0)"><span class="font" style="font-family:Helvetica">Graciliano Galdino A. dos Santos</span></span><br style="color:rgb(0, 0, 0);font-family:Helvetica;">Biólogo</span></div>

<div><span class="size" style="font-size:x-small">Doutorando em Ciências Florestais - PPGCF</span><br></div>

<div><span class="size" style="font-size:x-small">Universidade Federal Rural da Amazônia - UFRA</span><br></div>

</div>

</div>

</div>

<div><u>_______________________________________________</u><br></div>

<div>R-br mailing list<br></div>

<div><a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br></div>

<div><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br></div>

<div>Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></div>

</blockquote></body>

</html>