如何在R中有效地计算环上3个后续点的平均值

# 创建环上所有点的向量
points <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

# 创建一个空向量用于存储后续点的平均值
averages <- c()

# 循环遍历环上的每个点
for (i in 1:length(points)) {
  # 提取后续3个点的索引
  next_points <- (i + 1):(i + 3)
  # 使用取余运算符确保不超过环的范围
  next_points <- next_points %% length(points)
  # 提取后续3个点的值
  next_values <- points[next_points]
  # 计算后续3个点的平均值
  average <- mean(next_values)
  # 将平均值添加到结果向量中
  averages <- c(averages, average)
}

# 打印结果向量
print(averages)