r - "no applicable method"使用函数filter()计算移动平均值时出错

Question

有人可以善意地指出这段代码的问题是什么吗:

mav <- function(x, n = 5) { filter(x, rep(1 / n, n), sides = 1) }

Close <- c(21000, 23400, 26800, 21000, 23400, 26800)
SourceData <- data.frame(Close)
SourceData$CloseMA1 <- mav(SourceData$Close, n = 2)

我得到:

Error in UseMethod("filter_") : 
  no applicable method for 'filter_' applied to an object of class "c('double', 'numeric')"

Answer 1

尝试stats::filter。您还可以检查environment(filter)以了解您的filter来自哪个包。