rowr函数的代换

我正在研究R的一些项目，遇到了这种情况

f <- rowr::rollApply(data = X, 
                     fun = function(x) {sum(x * k)},
                     window = n, minimum = n, align = "right")

可以很好地替换它，因此我尝试：

f <- qpcR:::cbind.na::rollApply(data = X, 
                     fun = function(x) {sum(x * k)},
                     window = n, minimum = n, align = "right")

---

frowr已从CRAN中移除，请参见此处：

您可以从存档中安装旧版本，以查看代码是否仍然有效

如果没有，请查看“zoo”软件包中的“rollapply”函数，它看起来与您在此介绍的函数非常相似。
您说得对，mister@tester，在存储库中找到了rollapply函数，解决了问题，非常感谢，致以最良好的问候
f <- qpcR:::cbind.na::rollApply(data = X, 
                     fun = function(x) {sum(x * k)},
                     window = n, minimum = n, align = "right")