<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","A","C","A","A","B","A","C","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==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 class="gmail_signature" 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.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>