<div dir="ltr">Muito obrigado pessoal, agradeço.</div><div class="gmail_extra"><br><br><div class="gmail_quote">Em 26 de abril de 2013 14:48, <span dir="ltr"><<a href="mailto:andrebvs@bol.com.br" target="_blank">andrebvs@bol.com.br</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><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 < <a href="mailto:rodrigo.gringo@gmail.com" target="_blank">rodrigo.gringo@gmail.com</a> ></strong> escreveu:</div><div><div class="h5">
<div dir="ltr">
<div>
<div class="gmail_default" style="font-size:small;font-family:'trebuchet ms',sans-serif"><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-size:small;display:inline;font-family:'trebuchet ms',sans-serif"> </div>
</div>
<div>
<div class="gmail_default" style="font-size:small;display:inline;font-family:'trebuchet ms',sans-serif">Sugiro que dê uma estudada no help da função. ?sample</div>
</div>
<div>
<div class="gmail_default" style="font-size:small;display:inline;font-family:'trebuchet ms',sans-serif"> </div>
</div>
<div>
<div class="gmail_default" style="font-size:small;display:inline;font-family:'trebuchet ms',sans-serif">Abs</div>
</div>
</div>
</div></div><div class="gmail_extra"><div><div class="h5"><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></div><div class="gmail_quote"><div><div class="h5">Em 26 de abril de 2013 11:39, Benilton Carvalho <span dir="ltr"><<a href="http://../../../undefined/compose?to=beniltoncarvalho@gmail.com" target="_blank">beniltoncarvalho@gmail.com</a>></span> escreveu:<br>
</div></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div class="h5">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="http://../../../undefined/compose?to=matheusmont@gmail.com" target="_blank">matheusmont@gmail.com</a>> escreveu:<br>
</div></div><div>
<div><div><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="http://../../../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></div></div><div class="im"> >> # 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></div> &g
t;> set.seed(2013)<br> >> A1 >> A2 >><br> >> # Estimativas:<br> >><br> >> Médias >> Variâncias >> Desv_Pad >><br> >> Result >> rownames(Result) >> Result<div class="im">
<br> >><br> >> Att.<br> >> André<br> >><br> >> ________________________________<br> >> Em 26/04/2013 01:56, Matheus Monteiro < <a href="http://../../../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></div> >> Sei que preciso inst
alar o pacote gtools mas não estou conseguindo.<div><div class="h5"><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="http://../../../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="http://../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="http://../../../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></div>
</div>
</blockquote>
</div>
</div>
<div> </div>
<br>_______________________________________________<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" 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.<br></blockquote></div><br></div>