https://github.com/cran/agricolae
Raw File
Tip revision: 042b24fe071730af05c89346dd7ef1752e0eb0fd authored by Felipe de Mendiburu on 07 January 2019, 20:00:11 UTC
version 1.3-0
Tip revision: 042b24f
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