<html><head></head><body><div style="color:#000; background-color:#fff; font-family:bookman old style, new york, times, serif;font-size:16px"><div id="yui_3_16_0_ym19_1_1506641100113_7266">Negativo Fernando, isto não é exercício de classe! É uma ideia que estou batalhando para implementar para semana nacional de ciência e tecnologia com alunos do ensino médio (técnico em informática) conhecer o R, saber sobre amostragem com ou sem reposição e claro sobre estatística. Obrigado pela contribuição.<br></div><div id="yui_3_16_0_ym19_1_1506641100113_7265"> </div><div id="yui_3_16_0_ym19_1_1506641100113_7171"><span></span></div><div id="yui_3_16_0_ym19_1_1506641100113_7170"> </div><div class="signature" id="yui_3_16_0_ym19_1_1506641100113_7169">André Oliveira Souza.
Graduação em Matemática, mestrado em estatística aplicada.Instituto Federal de Educação, Ciência e Tecnologia do Espirito Santo. IFES</div> <div class="qtdSeparateBR"><br><br></div><div class="yahoo_quoted" style="display: block;"> <div style="font-family: bookman old style, new york, times, serif; font-size: 16px;"> <div style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 16px;"> <div dir="ltr"><font face="Arial" size="2"> Em Quinta-feira, 28 de Setembro de 2017 16:45, Fernando Souza <nandodesouza@gmail.com> escreveu:<br></font></div> <br><br> <div class="y_msg_container"><div id="yiv3267514853"><div><div dir="ltr">Uma solução. <div><br clear="none"></div><div>O comando retorna um dataframe contendo uma coluna com as médias e outra com os desvios. A partir daí fazer os graficos fica a seu sabor.</div><div><br clear="none"></div><div><div>populacao <- rchisq(100000, df = 10)</div><div>tamanhoAmostra <- c(6,14,16,18,20)</div><div><br clear="none"></div><div>##x:dados a serem amostrados</div><div>##n= tamanho da amostra</div><div>##r =número de repetições. deve ser um valor inteiro</div><div>amostra <- function(x,n,r){</div><div> a <- list() ##guarda as amostras</div><div> rptn <- list() ##guarda a repetição da amostragem</div><div> </div><div> for(i in 1:length(n)){</div><div> z <- 1</div><div> while(z <= r){</div><div><br clear="none"></div><div> rptn[[z]] <- sample(x,size = n[i]) </div><div> names(rptn)[z] <- paste0("repetição",z)</div><div> z = z + 1</div><div> }</div><div><br clear="none"></div><div> a[,i] <- rptn</div><div><br clear="none"></div><div> }</div><div> </div><div> </div><div> return(a)</div><div><br clear="none"></div><div>}</div><div>amostrados <- amostra(populacao,tamanhoAmostra,2)</div><div><br clear="none"></div><div>#install.packages("plyr")</div><div>library(plyr)</div><div><br clear="none"></div><div><br clear="none"></div><div>resultado <- ldply (amostrados,function(x){</div><div> media <- mean(c(x$repetição1,x$repetição2))</div><div> desvio <- sd(c(x$repetição1,x$repetição2))</div><div> resposta <- data.frame(media,desvio)</div><div> return(resposta)</div><div><br clear="none"></div><div>})</div><div><br clear="none"></div><div>##você pode converter o dataframe para matrix</div><div>as.matrix(resultado)</div></div><div><br clear="none"></div></div><div class="yiv3267514853gmail_extra"><br clear="none"><div class="yiv3267514853gmail_quote">Em 28 de setembro de 2017 15:45, FHRB Toledo via R-br <span dir="ltr"><<a rel="nofollow" shape="rect" ymailto="mailto:r-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>></span> escreveu:<br clear="none"><blockquote class="yiv3267514853gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div dir="ltr"><div><div><div>Isso tem bastante cara de um exercício de classe. De qualquer forma, segue uma versão funcionando que se aproxima muito da sua explicação:<br clear="none"><br clear="none">> library(plyr)<br clear="none">> library(ggplot2)<br clear="none"><br clear="none">> R <- 1E4 # tamanho da populacao<br clear="none">> S <- 1E3 # quantidade de amostras<br clear="none">> T <- 2:50 # tamanho das amostras<br clear="none">> names(T) <- T # nomeando vetor<br clear="none"> <br clear="none">> pop <- rnorm(R) # populacao<br clear="none"><br clear="none">> ## cavalor de forca... : gera os dados<br clear="none">> sampler <- function(t, s, p) ldply(t, .id = 'size',<br clear="none"> function(ts) t(sapply(lapply(1:S,<br clear="none"> function(ss) sample(x = p,<br clear="none"> size = t,<br clear="none"> replace = TRUE)),<br clear="none"> function(x) c(mu = mean(x), sigma = sd(x)))))<br clear="none"><br clear="none">> ## resume por tamanho de amostras<br clear="none">> dados <- mutate(ddply(sampler(T, S, pop), .(size),<br clear="none"> summarize, muBar = mean(mu), sigmaBar = mean(sigma)),<br clear="none"> size = as.numeric(as.character(size)) )<br clear="none"><br clear="none">> ## media das medias<br clear="none">> ggplot(dados, mapping = aes(x = size, y = muBar)) + geom_point()<br clear="none"><br clear="none">> ## media dos desvios<br clear="none">> ggplot(dados, mapping = aes(x = size, y = sigmaBar)) + geom_point()<br clear="none"><br clear="none"></div>Vale a pena revisar e testar tudo novamente, sobre as saídas como matriz, deixo isso para suas adaptações.<br clear="none"><br clear="none"></div>att,<br clear="none"></div>FH<br clear="none"></div><div class="yiv3267514853gmail_extra"><br clear="none"><div class="yiv3267514853gmail_quote"><div><div class="yiv3267514853h5">2017-09-27 19:24 GMT-05:00 Andre Oliveira via R-br <span dir="ltr"><<a rel="nofollow" shape="rect" ymailto="mailto:r-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>></span>:<br clear="none"></div></div><blockquote class="yiv3267514853gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div><div class="yiv3267514853h5"><div><div style="color:#000;background-color:#fff;font-family:bookman old style, new york, times, serif;font-size:16px;"><div id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7991">Vou tentar explicar melhor! <br clear="none"></div><span></span><div id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8468"><br clear="none"></div><div id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8469">" <span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7919" style="color:rgb(0,0,0);">para cada tam repetir </span><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7920" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7921">nam (vezes)" <br clear="none"></span></span></div><div id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8450"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7920" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7921"><br clear="none"></span></span></div><div id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7923"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7920" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7921"><br clear="none"></span></span></div><div id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7924"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7920" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7921">Seria repetir as amostragens:</span></span></div><div id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8086"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7920" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7921"><br clear="none"></span></span></div><div dir="ltr" id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7987"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7920" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7921">amostras de 2 em 2 um número k vezes. (Teria aqui k desvios-padrão e k medias). salvar media dos desvios e media das media! <br clear="none"></span></span></div><div dir="ltr" id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7992"><br clear="none"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8217" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8218"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8219" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8220">amostras de 3 em 3 um número k vezes. </span></span></span></span><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8376" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8377"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8378" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8379"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8380" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8381">(Teria aqui k desvios-padrão e k medias). </span></span></span></span></span></span><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7920" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7921"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7995" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7996"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8221" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8222"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8382" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8383">salvar media dos desvios e media das media! </span></span></span></span></span></span></span></span></div><div dir="ltr" id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8028"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7920" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7921"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7995" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7996"><br clear="none"></span></span></span></span></div><div dir="ltr" id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8033"><br clear="none"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8231" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8232"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8233" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8234"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8235" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8236">amostras de 4 em 4 um número k vezes. </span></span></span></span></span></span><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8394" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8395"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8396" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8397"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8398" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8399"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8400" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8401">(Teria aqui k desvios-padrão e k medias). </span></span></span></span></span></span></span></span><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7920" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7921"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7995" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7996"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8031" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8032"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8237" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8238"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8402" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8403">salvar media dos desvios e media das media! </span></span></span></span></span></span></span></span></span></span></div><div id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7986"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7920" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7921"><br clear="none"></span></span></div><div id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7975"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7920" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7921">.............................. .............................. .............................. .............................. .............................. .............................. ....................</span></span></div><div id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8035"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7920" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7921"><br clear="none"></span></span></div><div dir="ltr" id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8041"><br clear="none"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8275" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8276"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8277" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8278">amostras de j em j um número k vezes. </span></span></span></span><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8412" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8413"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8414" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8415"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8416" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8417">(Teria aqui k desvios-padrão e k medias). </span></span></span></span></span></span><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7920" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7921"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8038" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8039"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8279" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8280"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8418" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8419">salvar media dos desvios e media das media! </span></span></span></span></span></span></span></span></div><div dir="ltr" id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8081"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7920" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7921"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8038" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8039"><br clear="none"></span></span></span></span></div><div dir="ltr" id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8082"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7920" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7921"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8038" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8039"><br clear="none"></span></span></span></span></div><div dir="ltr" id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8127"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7920" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7921"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8038" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_8039">Plotar os vetores salvos! <br clear="none"></span></span></span></span></div><div id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7922"><span></span></div><div id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7915"> </div><div class="yiv3267514853m_-4740202021827123803m_7358674755033931539signature" id="yiv3267514853m_-4740202021827123803m_7358674755033931539yui_3_16_0_ym19_1_1506557539106_7850">André Oliveira Souza.
Graduação em Matemática, mestrado em estatística aplicada.Instituto Federal de Educação, Ciência e Tecnologia do Espirito Santo. IFES</div> <div class="yiv3267514853m_-4740202021827123803m_7358674755033931539qtdSeparateBR"><br clear="none"><br clear="none"></div><div class="yiv3267514853m_-4740202021827123803m_7358674755033931539yahoo_quoted" style="display:block;"> <div style="font-family:bookman old style, new york, times, serif;font-size:16px;"> <div style="font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:16px;"><div><div class="yiv3267514853m_-4740202021827123803h5"> <div dir="ltr"><font face="Arial" size="2"> Em Quarta-feira, 27 de Setembro de 2017 15:02, Fernando Souza <<a rel="nofollow" shape="rect" ymailto="mailto:nandodesouza@gmail.com" target="_blank" href="mailto:nandodesouza@gmail.com">nandodesouza@gmail.com</a>> escreveu:<br clear="none"></font></div> <br clear="none"><br clear="none"> </div></div><div class="yiv3267514853m_-4740202021827123803m_7358674755033931539y_msg_container"><div id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357"><div><div><div class="yiv3267514853m_-4740202021827123803h5"><div dir="ltr"><div>Acredito que isso deva te ajudar. Não entendi muito bem o que quis dizer com " <span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357gmail-m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6877" style="color:rgb(0,0,0);">para cada tam repetir </span><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357gmail-m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6810" style="color:rgb(0,0,0);"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357gmail-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 clear="none"></div><div>populacao <- rchisq(100000, df = 10)</div><div>tamanho <- c(6,14,16,18,20) # diferentes tamanhos para amostrar</div><div><br clear="none"></div><div>amostra <- function(x,n){</div><div> a <- list()</div><div><br clear="none"></div><div> for(i in 1:length(n)){</div><div> </div><div> a[[i]] <- sample(x,size = n[i])</div><div><br clear="none"></div><div> </div><div> }</div><div> return(a)</div><div><br clear="none"></div><div>}</div><div>amostrados <- amostra(populacao,tamanho)</div><div><br clear="none"></div><div>#install.packages("plyr")</div><div>library(plyr)</div><div><br clear="none"></div><div>resultado <- ldply (amostrados,function(x){</div><div> media <- mean(x)</div><div> desvio <- sd(x)</div><div><br clear="none"></div><div> resposta <- data.frame(media,desvio)</div><div> return(resposta)</div><div><br clear="none"></div><div>})</div><div><br clear="none"></div><div>##você pode converter o dataframe para matrix</div><div>as.matrix(resultado)</div><div><br clear="none"></div></div></div></div><div class="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357gmail_extra"><br clear="none"><div class="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357gmail_quote"><div><div class="yiv3267514853m_-4740202021827123803h5">Em 26 de setembro de 2017 22:42, Andre Oliveira via R-br <span dir="ltr"><<a rel="nofollow" shape="rect" ymailto="mailto:r-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a>></span> escreveu:<br clear="none"></div></div><blockquote class="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div class="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357yqt1492585374" id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357yqt99551"><div><div style="color:#000;background-color:#fff;font-family:bookman old style, new york, times, serif;font-size:16px;"><div><div class="yiv3267514853m_-4740202021827123803h5"><div id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6686"><span>Boa noite,</span></div><div dir="ltr" id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6802"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6938">preciso de amostrar em um vetor de nome </span><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6858"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6939">populacao</span> amostras de tamanho n, com n variando de tamanhos [2; </span><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6877"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6859">tam</span>] e para cada tam repetir </span><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6810"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_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 clear="none"></span></span></div><div dir="ltr" id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6903"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6810"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6878"><br clear="none"></span></span></div><div dir="ltr" id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6904"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6810"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6878"><br clear="none"></span></span></div><div dir="ltr" id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6912"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6810"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_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="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6990"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6810"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6878"><br clear="none"></span></span></div><div dir="ltr" id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6927"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6810"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6878">Tentei fazer, mas sem sucesso! Caso alguém pude ajudar ficarei grato! <br clear="none"></span></span></div><div dir="ltr" id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6926"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6810"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6878"><br clear="none"></span></span></div><div dir="ltr" id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6879"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6810"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6878"><br clear="none"></span></span></div><div dir="ltr" id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6880"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6810"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6878">############################## ############################## #########################<br clear="none"></span></span></div><div dir="ltr" id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6692"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6780"><br clear="none"></span></div><div dir="ltr" id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_7076"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6780">n=10<br id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6751" clear="none">populacao <- rchisq(100000, df = n)<br id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6752" clear="none">mu=n<br id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6753" clear="none">s=sqrt(2*n)<br id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6754" clear="none">mu<br id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6755" clear="none">s<br id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6756" clear="none"><br id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6757" clear="none">par(mfrow = c(1, 3)) <br id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6758" clear="none">hist(populacao, prob=T, main="Y ~ Quiquadrado(GL=10)",xlab=" ", yla="Densidade",col=" limegreen")<br id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6759" clear="none"></span></div></div></div><div dir="ltr" id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_7051"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6780"><br id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6760" clear="none">amostragem<-function( populacao, tam, nam)<br id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6761" clear="none"> {</span></div><span></span><div dir="ltr" id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_7022"><span id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6780"> SD<-NULL<br id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6762" clear="none"> media<-NULL<br id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6763" clear="none"> X <-matrix(NA, tam, 2)<br id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6764" clear="none"> {<br id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6765" clear="none"> for(i in 2:nam)<br id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6766" clear="none"> amostra<-sample(populacao,tam)<br id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6767" clear="none"> SD[i]=sd(amostra)<br id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6768" clear="none"> media[i]<-mean(amostra)<br id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6769" clear="none"> X[i,] <- c(mean(SD), mean(media))<br id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6770" clear="none"> }<br id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6771" clear="none">print(cbind(mean(SD),mean( media))<br id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6772" clear="none">print(X)<br id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6773" clear="none">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="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6774" clear="none">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="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6775" clear="none">}<br id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6776" clear="none"><br id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6777" clear="none"><br id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6778" clear="none">amostragem(populacao, 150, 50000)<br id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6779" clear="none"></span></div><div id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6605"><div id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_7114"> ############################# ############################## ############################## ##</div><div id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_7150"><br clear="none"></div></div><div class="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546signature" id="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357m_3582969566620523546yui_3_16_0_ym19_1_1506475707412_6629">obg <br clear="none"></div></div></div></div><span><br clear="none">______________________________ _________________<br clear="none">
R-br mailing list<br clear="none">
<a rel="nofollow" shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br clear="none">
<a rel="nofollow" shape="rect" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/ cgi-bin/mailman/listinfo/r-br</a><br clear="none"></span>
Leia o guia de postagem (<a rel="nofollow" shape="rect" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br- guia</a>) e forneça código mínimo reproduzível.<br clear="none"></blockquote></div><span><br clear="none"><br clear="all"></span><div><br clear="none"></div>-- <br clear="none"><div class="yiv3267514853m_-4740202021827123803m_7358674755033931539yiv3828195357gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><span>============================== ===========<br clear="none">
Fernando Souza<br clear="none">
Zootecnista, DSc. Produção e Alimentação Animal<br clear="none">
Celular: (31)99796-8781 (Vivo)<br clear="none">
<a rel="nofollow" shape="rect" ymailto="mailto:e-mail%3Anandodesouza@gmail.com" target="_blank" href="mailto:e-mail%3Anandodesouza@gmail.com">E-mail:nandodesouza@gmail.com</a><br clear="none">
Lattes: <a rel="nofollow" shape="rect" target="_blank" href="http://lattes.cnpq.br/6519538815038307">http://lattes.cnpq.br/65195388 15038307</a><br clear="none">
Blog: <a rel="nofollow" shape="rect" target="_blank" href="https://producaoanimalcomr.wordpress.com/">https://producaoanimalcomr.wor dpress.com/</a><br clear="none">
============================== ============</span></div></div></div></div></div></div></div></div></div></div>
</div></div></div><br clear="none"><br clear="none"></div> </div> </div> </div></div></div><br clear="none"></div></div>______________________________ _________________<span class="yiv3267514853"><br clear="none">
R-br mailing list<br clear="none">
<a rel="nofollow" shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br clear="none">
<a rel="nofollow" shape="rect" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi -bin/mailman/listinfo/r-br</a><br clear="none"></span>
Leia o guia de postagem (<a rel="nofollow" shape="rect" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-g uia</a>) e forneça código mínimo reproduzível.<div class="yiv3267514853yqt0839873590" id="yiv3267514853yqtfd22309"><br clear="none"></div></blockquote></div><div class="yiv3267514853yqt0839873590" id="yiv3267514853yqtfd72940"><br clear="none"></div></div><div class="yiv3267514853yqt0839873590" id="yiv3267514853yqtfd08482">
<br clear="none">______________________________ _________________<br clear="none">
R-br mailing list<br clear="none">
<a rel="nofollow" shape="rect" ymailto="mailto:R-br@listas.c3sl.ufpr.br" target="_blank" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br clear="none">
<a rel="nofollow" shape="rect" target="_blank" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/ cgi-bin/mailman/listinfo/r-br</a><br clear="none">
Leia o guia de postagem (<a rel="nofollow" shape="rect" target="_blank" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br- guia</a>) e forneça código mínimo reproduzível.<br clear="none"></div></blockquote></div><div class="yiv3267514853yqt0839873590" id="yiv3267514853yqtfd80283"><br clear="none"><br clear="all"><div><br clear="none"></div>-- <br clear="none"><div class="yiv3267514853gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><span>=========================================<br clear="none">
Fernando Souza<br clear="none">
Zootecnista, DSc. Produção e Alimentação Animal<br clear="none">
Celular: (31)99796-8781 (Vivo)<br clear="none">
<a rel="nofollow" shape="rect" ymailto="mailto:e-mail%3Anandodesouza@gmail.com" target="_blank" href="mailto:e-mail%3Anandodesouza@gmail.com">E-mail:nandodesouza@gmail.com</a><br clear="none">
Lattes: <a rel="nofollow" shape="rect" target="_blank" href="http://lattes.cnpq.br/6519538815038307">http://lattes.cnpq.br/6519538815038307</a><br clear="none">
Blog: <a rel="nofollow" shape="rect" target="_blank" href="https://producaoanimalcomr.wordpress.com/">https://producaoanimalcomr.wordpress.com/</a><br clear="none">
==========================================</span></div></div></div></div></div></div></div></div></div></div>
</div></div></div></div><br><br></div> </div> </div> </div></div></body></html>