https://github.com/cran/agricolae
Raw File
Tip revision: 7397469d2504b9822b1062f6831efc0cfe6e7deb authored by Felipe de Mendiburu on 18 June 2014, 00:00:00 UTC
version 1.1-9
Tip revision: 7397469
skewness.R
`skewness` <-
function(x) {
x <- na.omit(x)
n<-length(x)
s<-sqrt(var(x))
suma<-sum((x-mean(x))^3)/s^3
k <- n*suma/((n-1)*(n-2))
return(k)
}

back to top