https://github.com/cran/agricolae
Raw File
Tip revision: 7fe8c955a30350dc1be9e1461176dee70ef4c8b2 authored by Felipe de Mendiburu on 24 February 2010, 00:00:00 UTC
version 1.0-9
Tip revision: 7fe8c95
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