
Boa tarde pessoal, Gostaria de utilizar um teste para decidir o número ótimo de amostral, baseado na abordagem que estou empregando, se faço: pop.total<-rnorm(10000,mean=20,sd=15) ## População total i<-c(5000,50)## Quantidade de amostras n.sim<-999 ## Número de simulações RES=NULL for(Nsim in 1:n.sim){ for(Nam in 1:length(i)){ amostras<-sample(pop.total,i[Nam]) ## Amostragem com reposição m.amostras<-mean(amostras) ## Media encontrada nas amostras err.amost<-100-((mean(amostras)/mean(pop.total))*100) ### Erro amostral RES=rbind(RES,c(Nsim,i[Nam],err.amost)) }} ####### 50 amostras am.50<-RES[RES[,2]==50,] shapiro.test(am.50[,3]-mean(am.50[,3])) ## Distribuição normal,então inferências sobre os parâmetros média e desvio estão corretos mean(am.50[,3])## Média do erro amostral sd(am.50[,3])/sqrt(length(am.50[,3]))## Erro padrão do erro amostral sd(am.50[,3])## Desvio padrão # ####### 5000 amostras am.5000<-RES[RES[,2]==5000,] shapiro.test(am.5000[,3]-mean(am.5000[,3])) ## Distribuição normal,então inferências sobre os parâmetros média e desvio estão corretos mean(am.5000[,3])## Média do erro amostral sd(am.5000[,3])/sqrt(length(am.50[,3]))## Erro padrão do erro amostral sd(am.5000[,3])## Desvio padrão # Percebo que a média do erro amostral e o erro padrão desta média são baixos (próximos de zero) tanto quando minha amostra tem tamanho 50 quanto 5000, porém o desvio padrão, obviamente, aumenta quando reduzo o número de amostras. Gostaria de saber que teste poderia empregar para escolha de um número ótimo de amostras, uma vez que eu não posso usar como critério o erro amostral, quando simulo este cenário 999 vezes e emprego inúmeros tamanhos amostrais? Obrigado, -- ====================================================================== Alexandre dos Santos Proteção Florestal Coordenador do curso Técnico em Florestas Vice Coordenador do curso de Engenharia Florestal IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso Campus Cáceres Caixa Postal 244 Avenida dos Ramires, s/n Bairro: Distrito Industrial Cáceres - MT CEP: 78.200-000 Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO) e-mails:alexandresantosbr@yahoo.com.br alexandre.santos@cas.ifmt.edu.br ======================================================================