kurtosis.r

来自「支持向量机完整版（SVM）可以用来进行设别训练」· 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
}