R/skewness.R

In carian2996/cumstats: Cumulative Descriptive Statistics

#' Skewness
#'
#' This function computes skewness of given numeric data.
#'
#' @param x a numeric vector
#'
#' @return A numeric value of skewness. Returns \code{NA} if \code{x} contains
#'    \code{NA} value(s), and \code{NaN} if \code{length(unique(x))==1} is
#'    \code{TRUE}.
#'
#' @references
#' Komsta, L. and Novomestky, F. (2015). \emph{moments: Moments, cumulants,
#' skewness, kurtosis and related tests.} R package version 0.14.
#' \url{https://CRAN.R-project.org/package=moments}
#'
#' @examples
#' skewness(c(9, 1, 3, 0))
#'
#' @seealso \code{\link{cumskew}} for cummulative skewness.
#'
#' @author Adapted by Arturo Erdely, \email{arturo.erdely@@comunidad.unam.mx},
#'    from \code{moments} R package by Lukasz Komsta.
#'
#' @export
#'

skewness <-
function(x) sqrt(length(x)) * sum((x - mean(x))^3) / (sum((x - mean(x))^2)^(3/2))