r - 查找向量中值之间的中点

Question

这是用于使用中点规则计算 AUC 的函数。使用 R 如何定义一个包含前一个向量值之间中点的向量？或者如何将向量的值移动到它们的中点？

# define h (or delta x)
  h <- (b - a) / n
# define vector based on the limits of integration, a to b by increments of h
  xj <- seq.int(a, b, length.out = n + 1
# shift values of vector to their midpoints

例如，将值 [0, 1, 2, 3] 移动为 [.25, 1.5, 2.5]

这个 for 循环有效，但我想知道是否有比这更优雅的解决方案:

for (i in 1:length(xj)) {
  xji[i] <- (xj[i] + xj[i + 1]) / 2
}

Answer 1

我们可以使用滚动平均值

library(zoo)
rollmean(v1, 2)
#[1] 0.5 1.5 2.5

数据

v1 <- 0:3