Uma maneira mais formal de observar a normalidade é testar se a curtose e a inclinação são significativamente diferentes de zero.
Para fazer isso, precisamos obter:
kurtosis.test <- function (x) {
m4 <- sum((x-mean(x))^4)/length(x)
s4 <- var(x)^2
kurt <- (m4/s4) - 3
sek <- sqrt(24/length(x))
totest <- kurt/sek
pvalue <- pt(totest,(length(x)-1))
pvalue
}
para curtose e:
skew.test <- function (x) {
m3 <- sum((x-mean(x))^3)/length(x)
s3 <- sqrt(var(x))^3
skew <- m3/s3
ses <- sqrt(6/length(x))
totest <- skew/ses
pt(totest,(length(x)-1))
pval <- pt(totest,(length(x)-1))
pval
}
Skewness.
Ambos os testes são unilaterais, portanto, você precisará multiplicar o valor-p por 2 para se tornar bilateral. Se o seu valor p for maior que um, você precisará usar 1-kurtosis.test () em vez de kurtosis.test.
Se você tiver outras perguntas, envie um email para j.bredman@gmail.com
zipfR
pacote.