行r函数的替换

Question

我正在研究R中的一些项目，并面临着这种情况

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

问题是，现在没有一个名为rowr的包。通过在web上搜索，我在堆栈溢出上找到了这个函数。

qpcR:::cbind.na

我可以很好的代替它，所以我试了一下：

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

但是qpcR:::cbind.na只适用于x和y参数qpcR:::cbind.na(x，y)，在这种情况下，对于如何解决这个问题，有什么建议吗？

诚挚的问候

Answer 1

从CRAN中移除了rowr，参见此处：https://cran.r-project.org/web/packages/rowr/index.html

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

如果没有，那么看一看“动物园”包中的“rollapply”函数，它看起来非常类似于您在这里展示的函数。