R写一个计算加权平均值的代码

假设有一个向量 `x` 存储了要计算加权平均的一组数据，向量 `w` 存储了对应的权重，那么可以使用以下代码计算加权平均值：

weighted.mean(x, w)

其中 `x` 和 `w` 都是向量，函数 `weighted.mean()` 将返回加权平均值。如果需要自己写一个函数来计算加权平均值，可以参考下面的代码：

weighted.mean.custom <- function(x, w) {
  sum(x * w) / sum(w)
}

这个函数和 `weighted.mean()` 的结果是相同的。