在R语言中，向量中邻居元素的加权平均是什么？

Question

我有两个向量x和w。向量w是一个数字权重向量，长度与x相同。我们如何得到向量x中相邻元素的加权平均值（第一个元素和第二个元素的加权平均值，然后是第二个和第三个元素的加权平均值，......例如，这些向量如下：

x = c(0.0001560653, 0.0001591889, 0.0001599698, 0.0001607507, 0.0001623125,
      0.0001685597, 0.0002793819, 0.0006336307, 0.0092017241, 0.0092079042,
      0.0266525118, 0.0266889564, 0.0454923285, 0.0455676525, 0.0457005450)

w = c(2.886814e+03, 1.565955e+04, 9.255762e-02, 7.353589e+02, 1.568933e+03,
      5.108046e+05, 6.942338e+05, 4.912165e+04, 9.257674e+00, 3.609918e+02,
      8.090436e-01, 1.072975e+00, 1.359145e+00, 9.828314e+00, 9.455688e+01)

- Bensor Beny

Answer 1

sapply(1:(length(x)-1), function(i) weighted.mean(x[i:(i+1)], w[i:(i+1)]))

- David Robinson

Answer 2

一种函数式编程方法 - 会比 `@David Robinsons` 慢。

# lots of `Map` \ functional programming
mapply(weighted.mean,
 x = Map(c, head(x,-1),tail(x,-1)), 
 w = Map(c, head(w,-1) ,tail(w,-1))

- mnel