<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#FFFFFF">
Obrigado Walmes,<br>
<br>
Mas no meu caso não consegui expressar essa relação do tipo
curvatura máxima (cotovelo) entre o CV e o número de amostras, segue
tentativa abaixo:<br>
<br>
################################################################################<br>
pop.total<-rnorm(10000,mean=20,sd=15)<br>
<br>
i<-c(2,4,8,156,1250,2500,5000,7500)## Quantidade de amostras<br>
<br>
n.sim<-999 ## Número de simulações<br>
<br>
<br>
RES=NULL<br>
<br>
for(Nsim in 1:n.sim){<br>
for(Nam in 1:length(i)){<br>
<br>
amostras<-sample(pop.total,i[Nam]) ## Amostragem com reposição<br>
<br>
m.amostras<-mean(amostras) ## Media encontrada nas amostras<br>
<br>
err.amost<-100-((mean(amostras)/mean(pop.total))*100) ### Erro
amostral<br>
<br>
RES=rbind(RES,c(Nsim,i[Nam],err.amost))<br>
}}<br>
<br>
#<br>
length(RES[,1])<br>
err.sd<-aggregate(RES, by = list(RES[,2]), FUN = "sd")
##Retirando a média das simulações<br>
err.mean<-aggregate(RES, by = list(RES[,2]), FUN = "mean")
##Retirando a média das simulações<br>
dados<-cbind(err.sd[,1],100*(err.sd[,4]/err.mean[,4])) ### Numero
de amostras e CV<br>
plot(dados[,1],dados[,2])<br>
#<br>
#<br>
#<br>
mod<-nls(dados[,2]~a/dados[,1]^b,start=list(a=1,b=1))## Modelo
não linear para determinar a queda do CV com o tamanho da amostra <br>
summary(mod) ### <br>
<br>
<br>
Obrigado,<br>
<br>
Alexandre<br>
<div class="moz-cite-prefix">Em 20/03/2013 14:49, Walmes Zeviani
escreveu:<br>
</div>
<blockquote
cite="mid:CAFU=EkYRyuAYws=bDzGWV2VNdy89-VXr7XNPNEEc6C1FMiAXHQ@mail.gmail.com"
type="cite"><font face="trebuchet ms,sans-serif">Esses estudos de
tamanho de amostra normalmente são baseados em alguma medida que
expressa quantidade de informação em função do número de
elementos na amostra. Em geral essa medida de informação pode
ser o CV, a amplitude da margem de erro (ou o próprio erro
padrão) para a média da população (ou outro parâmetro de
interesse). Quanto maior a informação menor o erro padrão e por
isso essas medidas de incerteza diminuem com o tamanho da
amostra. Você pode representar isso por um modelo não linear de
decaimento e escolher o tamanho da amostra a partir dele. Usa-se
às vezes o modelo linear-platô e o valor da abcissa (o cotovelo)
como tamanho de amostra.<br>
<br>
À disposição.<br>
Walmes.<br>
<br clear="all">
</font>
<div><span style="font-family:trebuchet ms,sans-serif">==========================================================================</span><br
style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">Walmes Marques
Zeviani</span><br style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">LEG
(Laboratório de Estatística e Geoinformação, 25.450418 S,
49.231759 W)</span><br style="font-family:trebuchet
ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">Departamento
de Estatística - Universidade Federal do Paraná</span><br
style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">fone: (+55) 41
3361 3573</span><br style="font-family:trebuchet
ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">VoIP: (3361
3600) 1053 1173</span><br style="font-family:trebuchet
ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">e-mail: <a
moz-do-not-send="true" href="mailto:walmes@ufpr.br"
target="_blank">walmes@ufpr.br</a><br>
skype: walmeszeviani<br style="font-family:trebuchet
ms,sans-serif">
</span><span style="font-family:trebuchet ms,sans-serif">twitter:
@walmeszeviani</span><br style="font-family:trebuchet
ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">homepage: <a
moz-do-not-send="true"
href="http://www.leg.ufpr.br/%7Ewalmes" target="_blank">http://www.leg.ufpr.br/~walmes</a></span><br
style="font-family:trebuchet ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">linux user
number: 531218</span><br style="font-family:trebuchet
ms,sans-serif">
<span style="font-family:trebuchet ms,sans-serif">==========================================================================</span><br>
</div>
<br>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" 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.</pre>
</blockquote>
<br>
<pre class="moz-signature" cols="72">--
======================================================================
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)
<a class="moz-txt-link-abbreviated" href="mailto:e-mails:alexandresantosbr@yahoo.com.br">e-mails:alexandresantosbr@yahoo.com.br</a>
<a class="moz-txt-link-abbreviated" href="mailto:alexandre.santos@cas.ifmt.edu.br">alexandre.santos@cas.ifmt.edu.br</a>
======================================================================
</pre>
</body>
</html>