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.

============================== Código R ======================================================
require(e1071)
x=c(72, 70, 77, 60, 67, 69, 68, 66, 65, 71, 69)
kurtosis(x,type=1)+3
skewness(x,type=1)
=============================Código R========================================================
require(moments)
x=c(72, 70, 77, 60, 67, 69, 68, 66, 65, 71, 69)
skewness(x)
kurtosis(x)
agostino.test(x, alternative = "two.sided")
anscombe.test(x, alternative="two.sided")
#two sided = dois lados
#less = abaixo
#greater = acima
===========================================================================================
 
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



Em Quarta-feira, 17 de Dezembro de 2014 22:55, Luiz Roberto Martins Pinto <luizroberto.uesc@gmail.com> escreveu:


Olá André,

Agradeço a sua sugestão de leitura.

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.

Se eu estiver enganado, por favor me informe.

Luiz Roberto.

Luiz Roberto Martins Pinto
Prof. Pleno/DCET/UESC
Laboratório de Estatística Computacional
Universidade Estadual de Santa Cruz
Ilhéus-Bahia

luizroberto.uesc@gmail.com
skype: lrmpinto

Em 17 de dezembro de 2014 20:48, Andre Oliveira <andreolsouza@yahoo.com.br> escreveu:
Assimetria é zero e curtose é 3 não?

Testa as hipóteses!

# D'Agostino, R.B. (1970). Transformation to Normality of the Null Distribution of G1. -Biometrika, 57, 3, 679-681.

require(moments)
x=c(72, 70, 77, 60, 67, 69, 68, 66, 65, 71, 69)
skewness(x)
kurtosis(x)
agostino.test(x, alternative = "two.sided")
anscombe.test(x, alternative="two.sided")

 


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



Em Quarta-feira, 17 de Dezembro de 2014 18:47, Luiz Roberto Martins Pinto <luizroberto.uesc@gmail.com> escreveu:


Caros,

Considerem x=rnorm(1000).

As funções
skewness(x) # retorna valor simetria.
kurtosis(x)    # retorna valor curtose.

A distribuição normal teórica é simetrica, com skewness(x)=0, e mesocúrtica, com kurtosis(x)=0.

Preciso saber os intervalos para skewness(x) e kurtosis(x), de modo que o vetor x seja considerado 'normalmente distribuído'.

Luiz Roberto.


Luiz Roberto Martins Pinto
Prof. Pleno/DCET/UESC
Laboratório de Estatística Computacional
Universidade Estadual de Santa Cruz
Ilhéus-Bahia

luizroberto.uesc@gmail.com
skype: lrmpinto

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.


_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.