R/internal-toolbox.R

In varrank: Heuristics Tools Based on Mutual Information for Variable Ranking

###############################################################################
## internal-toolbox.R ---
## Author          : Gilles Kratzer
## Document created   : 08/09/2017
###############################################################################

##-------------------------------------------------------------------------
## Function that computes skewness of a distribution
##-------------------------------------------------------------------------

skewness <- function(x){
  n <- length(x)
  (sum((x-mean(x))^3)/n)/(sum((x-mean(x))^2)/n)^(3/2)
}


##EOF