<div>Utilize o seguinte:</div>
<div> </div>
<div> A1 <- sample(EstI,5,replace=T) # com reposição<br /> A2 <- sample(EstII,5,replace=T) # com reposição<br /><br /><em>Att.</em><br /><em>André</em><br /><br /></div>
<hr style="border-top: 1px solid #ccc;" />
<div>Em 26/04/2013 13:04, <strong>Rodrigo Sant'Ana < rodrigo.gringo@gmail.com ></strong> escreveu:</div>
<div dir="ltr">
<div>
<div class="gmail_default" style="font-family: 'trebuchet ms',sans-serif; font-size: small; color: #000000;"><span style="font-family: arial; color: #222222;">C</span>
<div class="gmail_default" style="display: inline;">orroborando o que o Benilton e o André colocaram, basta você utilizar o argumento replace = TRUE previsto na função sample() do R. Isso resolverá seu problema de implementação de uma amostragem aleatória simples com reposição.</div>
</div>
</div>
<div>
<div class="gmail_default" style="font-family: 'trebuchet ms',sans-serif; font-size: small; color: #000000; display: inline;"> </div>
</div>
<div>
<div class="gmail_default" style="font-family: 'trebuchet ms',sans-serif; font-size: small; color: #000000; display: inline;">Sugiro que dê uma estudada no help da função. ?sample</div>
</div>
<div>
<div class="gmail_default" style="font-family: 'trebuchet ms',sans-serif; font-size: small; color: #000000; display: inline;"> </div>
</div>
<div>
<div class="gmail_default" style="font-family: 'trebuchet ms',sans-serif; font-size: small; color: #000000; display: inline;">Abs</div>
</div>
</div>
<div class="gmail_extra"><br />
<div>
<div dir="ltr">___________________________________________________<br /><strong>Rodrigo Sant'Ana</strong><br />--<br />
<div>Mestre em Ciência e Tecnologia Ambiental - MCTA/UNIVALI
<div>Graduado em Oceanografia - CTTMar/UNIVALI</div>
<div>Universidade do Vale do Itajaí - UNIVALI</div>
<div>--</div>
</div>
<div> </div>
</div>
</div>
<br /><br />
<div class="gmail_quote">Em 26 de abril de 2013 11:39, Benilton Carvalho <span dir="ltr"><<a href="../../../undefined//compose?to=beniltoncarvalho@gmail.com" target="_blank">beniltoncarvalho@gmail.com</a>></span> escreveu:<br />
<blockquote class="gmail_quote" style="margin: 0 0 0 .8ex; border-left: 1px #ccc solid; padding-left: 1ex;">Se vc ler a documentacao do comando sample(), notara' que existe um<br /> argumento que vc pode configurar para que a amostragem seja feita com<br /> reposicao. b<br /> <br /> Em 26 de abril de 2013 11:11, Matheus Monteiro <<a href="../../../undefined//compose?to=matheusmont@gmail.com" target="_blank">matheusmont@gmail.com</a>> escreveu:<br />
<div class="HOEnZb">
<div class="h5">> Andre, obrigado<br /> > mas preciso instalar o pacote gtools mesmo. Vou ter que encontrar uma<br /> > maneira<br /> ><br /> > Tem que implementar um AASc isto é com reposicao. A funcao sample faz por<br /> > default um AASs. Revise isto<br /> ><br /> > Abs<br /> ><br /> > Matheus<br /> ><br /> ><br /> > Em 26 de abril de 2013 09:33, <<a href="../../../undefined//compose?to=andrebvs@bol.com.br" target="_blank">andrebvs@bol.com.br</a>> escreveu:<br /> >><br /> >> Veja se é isso:<br /> >><br /> >> # População:<br /> >><br /> >> pop <-<br /> >> c(11376685,6390290,2710968,2648532,2500532,2395785,1861838,1776761,<br /> >> 1555039,1416014,1410430,1333767,1244518,1098630,1039610,1016128,953393,<br /> >> 867067,830231,817590,805397,801746,774886,742428,680496,668877,654786,<br /> >> 643603,619746,619536,613815,600692,587701,568099,561329,52633
8,525225,<br /> >> 515707,491807,483821,474596,474596,472300,460062,446911,442701,433158,<br /> >> 425169,424948,422569)<br /> >><br /> >> Npop >><br /> >> # Estratos:<br /> >><br /> >> EstI <-<br /> >> c(11376685,6390290,2710968,2648532,2500532,2395785,1861838,1776761,<br /> >> 1555039,1416014)<br /> >><br /> >> EstII <-<br /> >> c(1410430,1333767,1244518,1098630,1039610,1016128,953393,867067,<br /> >><br /> >> 830231,817590,805397,801746,774886,742428,680496,668877,654786,643603,619746,<br /> >><br /> >> 619536,613815,600692,587701,568099,561329,526338,525225,515707,491807,483821,<br /> >> Â 474596,474596,472300,460062,446911,442701,433158,425169,424948,422569)<br /> >><br /> >> nEstI<-length(EstI)<br /> >> nEstII<-length(EstII)<br /> >><br /> >> # Amostras:<br /> >><br /> &g
t;> set.seed(2013)<br /> >> A1 >> A2 >><br /> >> # Estimativas:<br /> >><br /> >> Médias >> Variâncias >> Desv_Pad >><br /> >> Result >> rownames(Result) >> Result<br /> >><br /> >> Att.<br /> >> André<br /> >><br /> >> ________________________________<br /> >> Em 26/04/2013 01:56, Matheus Monteiro < <a href="../../../undefined//compose?to=matheusmont@gmail.com" target="_blank">matheusmont@gmail.com</a> > escreveu:<br /> >> Estou trabalhando com os 50 municipios mais populosos do Brasil, foi<br /> >> pedido para dividir a população em dois estratos, onde no primeiro estrato<br /> >> esteja os 10 mais populosos e no segundo o restante.<br /> >> Preciso obter uma amostra de 5 municípios de cada estrato e calcular a<br /> >> estimativa da media amostral e variancia.<br /> >> Sei que preciso inst
alar o pacote gtools mas não estou conseguindo.<br /> >> Não estou conseguindo, alguém pode ajudar?<br /> >> Por enquanto está assim:<br /> >><br /> >> pop =<br /> >> c(11376685,6390290,2710968,2648532,2500532,2395785,1861838,1776761,1555039,1416014,1410430,1333767,1244518,1098630,1039610,1016128,953393,867067,830231,817590,805397,801746,774886,742428,680496,668877,654786,643603,619746,619536,613815,600692,587701,568099,561329,526338,525225,515707,491807,483821,474596,474596,472300,460062,446911,442701,433158,425169,424948,422569)<br /> >><br /> >> Npop=length(pop)<br /> >><br /> >> Npop<br /> >><br /> >><br /> >> EstI=c(11376685,6390290,2710968,2648532,2500532,2395785,1861838,1776761,1555039,1416014)<br /> >><br /> >><br /> >> EstII=c(1410430,1333767,1244518,1098630,1039610,1016128,953393,867067,830231,817590,805397,801746,774886,742428,680496,668877,654786,643603,619746,619536,613
815,600692,587701,568099,561329,526338,525225,515707,491807,483821,474596,474596,472300,460062,446911,442701,433158,425169,424948,422569)<br /> >><br /> >> nEstI=length(EstI)<br /> >><br /> >> nEstII=length(EstII)<br /> >><br /> >><br /> >> _______________________________________________<br /> >> R-br mailing list<br /> >> <a href="../../../undefined//compose?to=R-br@listas.c3sl.ufpr.br" target="_blank">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<br /> >> código mínimo reproduzível.<br /> ><br /> ><br /> ><br /> > _______________________________________________<br /> > R-br mailing list<br /> > <a href="../..
/../undefined//compose?to=R-br@listas.c3sl.ufpr.br" target="_blank">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<br /> > mínimo reproduzível.<br /> _______________________________________________<br /> R-br mailing list<br /> <a href="../../../undefined//compose?to=R-br@listas.c3sl.ufpr.br" target="_blank">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.</div>
</div>
</blockquote>
</div>
</div>
<div> </div>