<div dir="ltr"><div><div style="font-family:'trebuchet ms',sans-serif;font-size:small;color:rgb(0,0,0)" class="gmail_default"><span style="font-family:arial;color:rgb(34,34,34)">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 style="font-family:'trebuchet ms',sans-serif;font-size:small;color:rgb(0,0,0);display:inline" class="gmail_default"><br></div></div><div><div style="font-family:'trebuchet ms',sans-serif;font-size:small;color:rgb(0,0,0);display:inline" class="gmail_default">

Sugiro que dê uma estudada no help da função. ?sample</div></div><div><div style="font-family:'trebuchet ms',sans-serif;font-size:small;color:rgb(0,0,0);display:inline" class="gmail_default"><br></div></div><div>
<div style="font-family:'trebuchet ms',sans-serif;font-size:small;color:rgb(0,0,0);display:inline" class="gmail_default">
Abs</div></div></div><div class="gmail_extra"><br clear="all"><div><div dir="ltr">___________________________________________________<br><b>Rodrigo Sant'Ana</b><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><br></div></div></div>
<br><br><div class="gmail_quote">Em 26 de abril de 2013 11:39, Benilton Carvalho <span dir="ltr"><<a href="mailto: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="mailto:matheusmont@gmail.com">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="mailto:andrebvs@bol.com.br">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,526338,525225,<br>
>>   515707,491807,483821,474596,474596,472300,460062,446911,442701,433158,<br>
>>   425169,424948,422569)<br>
>><br>
>>   Npop <- length(pop)<br>
>><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>
>>   set.seed(2013)<br>
>>   A1 <- sample(EstI,5)<br>
>>   A2 <- sample(EstII,5)<br>
>><br>
>> # Estimativas:<br>
>><br>
>>   Médias <- c(mean(A1),mean(A2))<br>
>>   Variâncias <- c(var(A1),var(A2))<br>
>>   Desv_Pad <- sqrt(Variâncias)<br>
>><br>
>>   Result <- data.frame(Médias,Variâncias,Desv_Pad)<br>
>>   rownames(Result) <- c("EstI","EstII")<br>
>>   Result<br>
>><br>
>> Att.<br>
>> André<br>
>><br>
>> ________________________________<br>
>> Em 26/04/2013 01:56, Matheus Monteiro < <a href="mailto:matheusmont@gmail.com">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 instalar 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,613815,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="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<br>
>> código mínimo reproduzível.<br>
><br>
><br>
><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<br>
> mínimo reproduzível.<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>
</div></div></blockquote></div><br></div>