根据样本偏度的定义,用r语言编写一个求偏度的函数

偏度（skewness）是衡量随机变量分布偏斜程度的一个统计量，可以用以下的公式进行计算：

$$
\text{Skewness} = \frac{\frac{1}{n}\sum_{i=1}^{n}(X_i-\bar{X})^3}{\sqrt{\frac{1}{n}\sum_{i=1}^{n}(X_i-\bar{X})^2}^3}
$$

其中 $X_i$ 表示第 $i$ 个观测值，$\bar{X}$ 表示样本均值，$n$ 表示样本大小。

下面是用 R 语言编写的求偏度的函数：

skewness <- function(x) {
  n <- length(x)
  mean_x <- mean(x)
  sd_x <- sd(x)
  skew <- sum((x - mean_x)^3) / (n * sd_x^3)
  return(skew)
}

这个函数接受一个向量作为输入，返回该向量的偏度。你可以使用以下代码来测试这个函数：

x <- c(1, 2, 3, 4, 5)
skewness(x)

输出结果为：

[1] 0

这是因为这个向量服从对称分布，偏度为 0。