Caro<div><br></div><div>Não consegui reproduzir seu erro. Seu código com loop <for> funcionou perfeitamente</div><div>Fiz uma amostragem com 20000 observações.</div><div>Encapsulei numa função simples onde se tem a opção do n amostral, com e sem reposição</div><div><br></div><div>segue sugestões:</div><div><br></div><div><div>Id = 1:20000</div><div>X = rep(c("A","B","A","C","A","A","B","A","C","A","A","B","A","C","A","A","B","A","C","A"), 1000)</div><div>Dados = data.frame(Id,X) ## Dados</div><div><br></div><div>## sugestão 1</div><div>amostragem1 = function(Dados, n=5, replace=TRUE)</div><div>{</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>IdDados = sample(Dados[,1], n, replace = replace)</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>DadosAm = NULL</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>for (i in 1:n) DadosAm = rbind(DadosAm, Dados[Id == IdDados[i],])<span class="Apple-tab-span" style="white-space: pre;"> </span></div><div><span class="Apple-tab-span" style="white-space:pre"> </span>return(DadosAm)</div><div>}##end amostragem1</div><div><br></div><div>## amostragem com n = 5 e sem repetição</div><div>amostragem1(Dados, n=5)</div><div><br></div><div>## sugestão 2</div><div>amostragem2 = function(Dados, n=5, replace=TRUE)</div><div>{</div><div><span class="Apple-tab-span" style="white-space:pre"> </span>IdDados = sample(Dados[,1], n, replace = replace)<span class="Apple-tab-span" style="white-space:pre"> </span></div><div><span class="Apple-tab-span" style="white-space:pre"> </span>return(Dados[Dados[,1] %in% IdDados,])</div><div>}##end amostragem2</div><div><br></div><div>## amostragem com n = 5 e sem repetição</div><div>amostragem2(Dados, n=5)</div><div><br></div><div>saudações</div><br>Em Seg, Ago 29, 2016 em 4:56 , Julimar Pinto via R-br <r-br@listas.c3sl.ufpr.br> escreveu:<br>
<blockquote type="cite"><p dir="ltr">Dependendo do tipo de amostragem, costumo utilizar a package "sampling". Que, no caso de amostras complexas (com ou sem reposição), trabalha de modo bastante conjugado com a package "survey".</p>
<p dir="ltr">Saudações,</p>
<p dir="ltr">Julimar</p>
<p dir="ltr">Muito bom isso: Nunca votar no PSDB/DEM, muito bom mesmo!<br>
</p>
<div class="gmail_extra"><br><div class="gmail_quote">Em 28/08/2016 20: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 type="attribution"><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><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","<wbr>A","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==<wbr>IdDados[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.<wbr>blogspot.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>
<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></div>
</blockquote></div>