R/skewness.R

skewness <- function(x){

  n <- length(x)

  (sum((x - mean(x))^3) / n) / ((sum((x - mean(x))^2) / n)^1.5)
}
abailey91/tidyModel documentation built on May 25, 2019, 2:24 p.m.