<html><body><div style="color:#000; background-color:#fff; font-family:HelveticaNeue-Light, Helvetica Neue Light, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:10px"><div id="yui_3_16_0_1_1418864844347_10602" dir="ltr">Pelo que sei kurtosis() do pacote e1071 que é em relação a 0, é calcular e somar 3. Mas do pacote momentes kurtosis() é em relação a 3 direto. Vide o código. Fiz os cálculos à mão devido ter este monte de estimadores. Os dois cálculos abaixo é usando definição de momentos. <br></div><div dir="ltr"><br></div><div id="yui_3_16_0_1_1418864844347_11156">============================== Código R ======================================================</div>require(e1071)<br style="" class="">x=c(72, 70, 77, 60, 67, 69, 68, 66, 65, 71, 69)<br style="" class="">kurtosis(x,type=1)<b id="yui_3_16_0_1_1418864844347_11157">+3</b><br style="" class="">skewness(x,type=1)<br style="" class="">=============================Código R========================================================<br style="" class="">require(moments)<br style="" class="">x=c(72, 70, 77, 60, 67, 69, 68, 66, 65, 71, 69)<br style="" class="">skewness(x)<br style="" class="">kurtosis(x)<br style="" class="">agostino.test(x, alternative = "two.sided")<br style="" class="">anscombe.test(x, alternative="two.sided")<br style="" class="">#two sided = dois lados<br style="" class="">#less = abaixo<br style="" class="">#greater = acima<br style="" class="">===========================================================================================<div id="yui_3_16_0_1_1418864844347_9970"><span></span></div><div id="yui_3_16_0_1_1418864844347_9919"> <br>André Oliveira Souza.
<br>Graduação em Matemática, mestrado em estatística aplicada.Instituto Federal de Educação, Ciência e Tecnologia do Espirito Santo. IFES
<br>
<br></div> <div class="qtdSeparateBR"><br><br></div><div style="display: block;" class="yahoo_quoted"> <div style="font-family: HelveticaNeue-Light, Helvetica Neue Light, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 10px;"> <div style="font-family: HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif; font-size: 16px;"> <div dir="ltr"> <font size="2" face="Arial"> Em Quarta-feira, 17 de Dezembro de 2014 22:55, Luiz Roberto Martins Pinto <luizroberto.uesc@gmail.com> escreveu:<br> </font> </div> <br><br> <div class="y_msg_container"><div id="yiv6022442894"><div><div dir="ltr">Olá André,<div><br clear="none"></div><div>Agradeço a sua sugestão de leitura.</div><div><br clear="none"></div><div>De fato, a kurtose média na distribuição normal é 3. Ocorre que nesta função kurtosis(x), da biblioteca agricolae, a saída é um desvio desta curtose média, por isto kurtosis(x)=0.</div><div><br clear="none"></div><div>Se eu estiver enganado, por favor me informe.</div><div><br clear="none"></div><div>Luiz Roberto.</div></div><div class="yiv6022442894gmail_extra"><br clear="all"><div><div class="yiv6022442894gmail_signature"><div>Luiz Roberto Martins Pinto<br clear="none">Prof. Pleno/DCET/UESC</div><div>Laboratório de Estatística Computacional</div><div>Universidade Estadual de Santa Cruz</div><div>Ilhéus-Bahia<br clear="none"><br clear="none"><a rel="nofollow" shape="rect" ymailto="mailto:luizroberto.uesc@gmail.com" target="_blank" href="mailto:luizroberto.uesc@gmail.com">luizroberto.uesc@gmail.com</a><br clear="none">skype: lrmpinto</div>
<div><a rel="nofollow" shape="rect" target="_blank" href="http://lattes.cnpq.br/2732314327604831">http://lattes.cnpq.br/2732314327604831</a> <br clear="none"><br clear="none"><br clear="none"></div></div></div>
<br clear="none"><div class="yiv6022442894gmail_quote">Em 17 de dezembro de 2014 20:48, Andre Oliveira <span dir="ltr"><<a rel="nofollow" shape="rect" ymailto="mailto:andreolsouza@yahoo.com.br" target="_blank" href="mailto:andreolsouza@yahoo.com.br">andreolsouza@yahoo.com.br</a>></span> escreveu:<blockquote class="yiv6022442894gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div class="yiv6022442894yqt0306271781" id="yiv6022442894yqt27280"><div><div style="color:#000;background-color:#fff;font-family:HelveticaNeue-Light, Helvetica Neue Light, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:10px;"><div dir="ltr">Assimetria é zero e curtose é 3 não? <br clear="none"></div><div dir="ltr"><br clear="none"></div><div dir="ltr">Testa as hipóteses! <br clear="none"></div><br clear="none"><div># D'Agostino, R.B. (1970). Transformation to Normality of the Null Distribution of G1. -Biometrika, 57, 3, 679-681.</div><div><br clear="none"></div>require(moments)<br clear="none">x=c(72, 70, 77, 60, 67, 69, 68, 66, 65, 71, 69)<br clear="none">skewness(x)<br clear="none">kurtosis(x)<br clear="none">agostino.test(x, alternative = "two.sided")<br clear="none">anscombe.test(x, alternative="two.sided")<br clear="none"><br clear="none"><div><span></span></div><div> </div><div><div>
<br clear="none">
<br clear="none">André Oliveira Souza.
<br clear="none">Graduação em Matemática, mestrado em estatística aplicada.Instituto Federal de Educação, Ciência e Tecnologia do Espirito Santo. IFES
<br clear="none">
<br clear="none"></div></div> <div><br clear="none"><br clear="none"></div><div style="display:block;"> <div style="font-family:HelveticaNeue-Light, Helvetica Neue Light, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:10px;"> <div style="font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:16px;"> <div dir="ltr"> <font face="Arial"> Em Quarta-feira, 17 de Dezembro de 2014 18:47, Luiz Roberto Martins Pinto <<a rel="nofollow" shape="rect" ymailto="mailto:luizroberto.uesc@gmail.com" target="_blank" href="mailto:luizroberto.uesc@gmail.com">luizroberto.uesc@gmail.com</a>> escreveu:<br clear="none"> </font> </div> <br clear="none"><br clear="none"> <div><div><div class="yiv6022442894h5"><div><div dir="ltr">Caros,<div><br clear="none"></div><div>Considerem x=rnorm(1000).</div><div><br clear="none"></div><div>As funções</div><div>skewness(x) # retorna valor simetria.</div><div>kurtosis(x) # retorna valor curtose.</div><div><br clear="none"></div><div>A distribuição normal teórica é simetrica, com skewness(x)=0, e mesocúrtica, com kurtosis(x)=0.</div><div><br clear="none"></div><div>Preciso saber os intervalos para skewness(x) e kurtosis(x), de modo que o vetor x seja considerado 'normalmente distribuído'.</div><div><br clear="none"></div><div>Luiz Roberto.</div><div><br clear="none"></div><div><br clear="all"><div><div><div>Luiz Roberto Martins Pinto<br clear="none">Prof. Pleno/DCET/UESC</div><div>Laboratório de Estatística Computacional</div><div>Universidade Estadual de Santa Cruz</div><div>Ilhéus-Bahia<br clear="none"><br clear="none"><a rel="nofollow" shape="rect" ymailto="mailto:luizroberto.uesc@gmail.com" target="_blank" href="mailto:luizroberto.uesc@gmail.com">luizroberto.uesc@gmail.com</a><br clear="none">skype: lrmpinto</div>
<div><a rel="nofollow" shape="rect" target="_blank" href="http://lattes.cnpq.br/2732314327604831">http://lattes.cnpq.br/2732314327604831</a> <br clear="none"><br clear="none"><br clear="none"></div></div></div>
</div></div></div><br clear="none"></div></div>_______________________________________________<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"><br clear="none"></div> </div> </div> </div> </div></div></div><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"></blockquote></div></div></div></div><br><br></div> </div> </div> </div> </div></body></html>