<div dir="ltr"><div>Acredito que isso deva te ajudar. Não entendi muito bem o que quis dizer com  " <span id="gmail-m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6877" style="color:rgb(0,0,0);font-family:"bookman old style","new york",times,serif;font-size:16px">para cada  tam repetir  </span><span id="gmail-m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6810" style="color:rgb(0,0,0);font-family:"bookman old style","new york",times,serif;font-size:16px"><span id="gmail-m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6878">nam (vezes)" , por isso o código abaixo não faz nenhuma repetição dos valores amostrados , porém acredito que é fácil de ajustar.</span></span></div><div><br></div><div>populacao <- rchisq(100000, df = 10)</div><div>tamanho <- c(6,14,16,18,20) # diferentes tamanhos para amostrar</div><div><br></div><div>amostra <- function(x,n){</div><div>    a <- list()</div><div><br></div><div>    for(i in 1:length(n)){</div><div>         </div><div>        a[[i]] <- sample(x,size = n[i])</div><div><br></div><div>                </div><div>        }</div><div>   return(a)</div><div><br></div><div>}</div><div>amostrados <- amostra(populacao,tamanho)</div><div><br></div><div>#install.packages("plyr")</div><div>library(plyr)</div><div><br></div><div>resultado <- ldply (amostrados,function(x){</div><div>   media <- mean(x)</div><div>   desvio <- sd(x)</div><div><br></div><div>   resposta <- data.frame(media,desvio)</div><div>   return(resposta)</div><div><br></div><div>})</div><div><br></div><div>##você pode converter o dataframe para matrix</div><div>as.matrix(resultado)</div><div><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">Em 26 de setembro de 2017 22:42, Andre Oliveira via R-br <span dir="ltr"><<a href="mailto:r-br@listas.c3sl.ufpr.br" target="_blank">r-br@listas.c3sl.ufpr.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div style="color:#000;background-color:#fff;font-family:bookman old style,new york,times,serif;font-size:16px"><div id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6686"><span>Boa noite,</span></div><div id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6802" dir="ltr"><span id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6938">preciso de amostrar em um vetor de nome </span><span id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6858"><span id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6939">populacao</span> amostras de tamanho n, com n variando de tamanhos  [2; </span><span id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6877"><span id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6859">tam</span>] e para cada  tam repetir  </span><span id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6810"><span id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6878">nam (vezes) e assim pegar a estimativas de media e dos desvios -padrão das amostras.<br></span></span></div><div dir="ltr" id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6903"><span id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6810"><span id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6878"><br></span></span></div><div dir="ltr" id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6904"><span id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6810"><span id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6878"><br></span></span></div><div dir="ltr" id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6912"><span id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6810"><span id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6878">Para cada amostra obtida extrair desvio padrão, média e guardar em uma matriz com vazia com NAs!  Ao final plotar a média dos desvios e a media das medias em função de cada n.</span></span></div><div dir="ltr" id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6990"><span id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6810"><span id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6878"><br></span></span></div><div dir="ltr" id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6927"><span id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6810"><span id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6878">Tentei fazer,  mas sem sucesso! Caso alguém pude ajudar ficarei grato! <br></span></span></div><div dir="ltr" id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6926"><span id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6810"><span id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6878"><br></span></span></div><div dir="ltr" id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6879"><span id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6810"><span id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6878"><br></span></span></div><div dir="ltr" id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6880"><span id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6810"><span id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6878">##############################<wbr>##############################<wbr>#########################<br></span></span></div><div id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6692" dir="ltr"><span id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6780"><br></span></div><div dir="ltr" id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_7076"><span id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6780">n=10<br id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6751">populacao <- rchisq(100000, df = n)<br id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6752">mu=n<br id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6753">s=sqrt(2*n)<br id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6754">mu<br id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6755">s<br id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6756"><br id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6757">par(mfrow = c(1, 3)) <br id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6758">hist(populacao, prob=T, main="Y ~ Quiquadrado(GL=10)",xlab=" ", yla="Densidade",col="<wbr>limegreen")<br id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6759"></span></div><div dir="ltr" id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_7051"><span id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6780"><br id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6760">amostragem<-function(<wbr>populacao, tam, nam)<br id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6761">  {</span></div><div dir="ltr" id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_7022"><span id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6780">   SD<-NULL<br id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6762">   media<-NULL<br id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6763">    X <-matrix(NA, tam, 2)<br id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6764">    {<br id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6765">    for(i in 2:nam)<br id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6766">    amostra<-sample(populacao,tam)<br id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6767">    SD[i]=sd(amostra)<br id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6768">    media[i]<-mean(amostra)<br id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6769">   X[i,] <- c(mean(SD), mean(media))<br id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6770">    }<br id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6771">print(cbind(mean(SD),mean(<wbr>media))<br id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6772">print(X)<br id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6773">plot.ts(SD, pch=19, type = "p", xlab="Número de folhas amostrada", ylab="Estimativa da Variabiliade", lty=2,xaxp=c(0,150,10))<br id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6774">plot.ts(media, pch=19, type = "p", xlab="Número de folhas amostrada", ylab="Estimativa da média", lty=2,xaxp=c(0,150,10))<br id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6775">}<br id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6776"><br id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6777"><br id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6778">amostragem(populacao, 150, 50000)<br id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6779"></span></div><div id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6605"><div id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_7114"> #############################<wbr>##############################<wbr>##############################<wbr>##</div><div id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_7150"><br></div></div><div class="m_3582969566620523546signature" id="m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6629">obg <br></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><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><span>=========================================<br>
Fernando Souza<br>
Zootecnista, DSc. Produção e Alimentação Animal<br>
Celular: (31)99796-8781 (Vivo)<br>
<a href="mailto:e-mail%3Anandodesouza@gmail.com" target="_blank">E-mail:nandodesouza@gmail.com</a><br>
Lattes: <a href="http://lattes.cnpq.br/6519538815038307" target="_blank">http://lattes.cnpq.br/6519538815038307</a><br>
Blog: <a href="https://producaoanimalcomr.wordpress.com/" target="_blank">https://producaoanimalcomr.wordpress.com/</a><br>
==========================================</span></div></div></div></div></div></div></div></div></div></div>
</div>