创建一个函数来计算给定向量的偏度

Creating A Function to Calculate the Skewness of a Given Vector

我想在 R 中创建一个函数,它根据下面的公式(在图像中)计算给定向量的偏度:

如有任何帮助,我们将不胜感激。

这是一个函数:

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