如何在R中计算移动窗口的等值？

# 安装和加载zoo包
install.packages("zoo")
library(zoo)

# 创建一个时间序列对象
data <- zoo(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10))

# 定义移动窗口的大小
window_size <- 3

# 计算移动窗口的等值
rolling_mean <- rollapply(data, window_size, mean, align = "right", fill = NA)

# 打印结果
print(rolling_mean)

# 安装和加载TTR包
install.packages("TTR")
library(TTR)

# 创建一个时间序列对象
data <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

# 定义移动窗口的大小
window_size <- 3

# 计算移动窗口的等值
rolling_mean <- SMA(data, n = window_size)

# 打印结果
print(rolling_mean)