Una forma más formal de ver la normalidad es probando si la curtosis y la asimetría son significativamente diferentes de cero.
Para hacer esto, necesitamos obtener:
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 curtosis y:
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
}
por sesgo.
Ambas pruebas son de una cola, por lo que deberá multiplicar el valor p por 2 para convertirse en dos colas. Si su valor p se vuelve mayor que uno, deberá usar 1-kurtosis.test () en lugar de kurtosis.test.
Si tiene alguna otra pregunta, puede enviarme un correo electrónico a j.bredman@gmail.com
zipfR
paquete.