https://github.com/cran/agricolae
Raw File
Tip revision: f9e48f6c9213c998bd2414cfd890521f9238a514 authored by Felipe de Mendiburu on 21 February 2014, 00:00:00 UTC
version 1.1-8
Tip revision: f9e48f6
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