动物园最大间隔长度不等

Question

我一直在尝试（不成功）在R中创建一个动态函数，用于存储具有重复间隔的向量的最大值。这是我想要完成的一个例子。

library(zoo)

x <- rep(1:3, times = 10)
width <- rep(1:3, times = 10)

test <- rollapply(x , width, FUN = max, partial = TRUE)
df <- data.frame(x, test)

由于宽度是1：3的重复间隔，因此是x 1：3。我的结果（测试）返回值（1：3），但正如你在df中看到的那样，它没有。感谢