skewness.r

来自「一般的支持向量机算法比较单一」· R 代码 · 共 8 行

skewness <- function (x, na.rm = FALSE)
{
  if (na.rm) 
    x <- x[!is.na(x)]
  sum((x-mean(x))^3)/(length(x)*sd(x)^3)
}