kurtosis.r

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

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