<html><body><div style="color:#000; background-color:#fff; font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:12pt"><div class="" style=""><span class="" style="">Boa tarde caros colegas da r-br,</span></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-style: normal; background-color: transparent;" class=""><span class="" style="">Gostaria da opinião dos senhores em um processo de automatização de geração de amostras (reamostragem) que iniciei. A ideia é gerar n amostras de tamanhos diferentes e verificar se as médias são estatísticamente iguais.</span></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-style: normal; background-color: transparent;" class=""><span class="" style="">Para fins de
exemplificação, é</span><span style="background-color: transparent;"> como se eu fosse no campo e medisse inicialmente altura de 5 árvores, voltasse nessa área e medisse 3, posteriormente 2 e assim por diante para testar minha suficiência amostral.</span></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-style: normal; background-color: transparent;" class=""><span class="" style=""><br class="" style=""></span></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-style: normal; background-color: transparent;" class=""><span class="" style="">## Segue um breve RCMR</span></div><div style="background-color: transparent;" class="">#### Reamostragem ####</div><div style="background-color: transparent;" class="">h <- c(18.79, 12.34, 14.11,
15.24, 13.82, 14.54, 13.77, 13.99, 10.00, 16.80, 10.49, 20.00, </div><div style="background-color: transparent;" class=""> 14.19, 14.09, 14.65, 12.22, 16.21, 13.90, 16.29, 15.39);</div><div style="background-color: transparent;" class="">parc <- rep(1:4, each=5);</div><div style="background-color: transparent;" class="">arv <- rep(1:5, 4);</div><div style="background-color: transparent;" class=""><br class="" style=""></div><div style="background-color: transparent;" class="">dados <- data.frame(parc, arv, h);</div><div style="background-color: transparent;" class="">dados[1:6,]</div><div style="background-color: transparent;" class="">rm(arv, parc, h);</div><div style="background-color: transparent;" class=""><br class="" style=""></div><div style="background-color: transparent;" class=""><span style="font-size: 12pt; background-color: transparent;">dados_sorteio <- dados[unlist( with(dados,
tapply(seq(nrow(dados)), parc, sample, size=3) ) ),]</span><br></div><div style="background-color: transparent;" class=""><span class="" style=""></span></div><div style="background-color: transparent;" class="">dados_sorteio # neste passo eu gero um novo dataframe reduzindo o tamanho da minha amostra, porém fico restrito a uma única comparação e a ideia é gerar esse procedimento n vezes e comparar as médias e também a estabilização do coeficiente de variação (curva de CV x n).</div><div style="background-color: transparent;" class=""><br></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-style: normal; background-color: transparent;" class="">Agradeço pela gentileza e contribuição de todos.</div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif;
font-style: normal; background-color: transparent;" class=""><br></div><div style="color: rgb(0, 0, 0); font-size: 16px; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-style: normal; background-color: transparent;" class="">Abraços<span style="font-size: 12pt;"> </span></div><div style="color: rgb(0, 0, 0); font-size: 12pt; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-style: normal; background-color: transparent;" class=""><span style="font-size: 12pt;">Samuel</span></div><div style="color: rgb(0, 0, 0); font-size: 12pt; font-family: HelveticaNeue, 'Helvetica Neue', Helvetica, Arial, 'Lucida Grande', sans-serif; font-style: normal; background-color: transparent;" class=""><span style="font-size: 12pt;"><br></span></div><div style="font-family:courier, monaco, monospace, sans-serif;" class=""><div class="" style="">--</div><div class=""
style="">Prof. Samuel P C Carvalho</div><div class="" style="">Manejo Florestal e Métodos Quantitativos</div><div class="" style="">Faculdade de Engenharia Florestal - UFMT</div><div class="" style="">(065)3615-8679 / Ramal 218</div><div class="" style="">www.ufmt.br/fenf</div></div></div></body></html>