在调试此函数时遇到一些问题

Question

我试图创建一个函数，从给定的点j、i开始，并为整个数据集(即每一行"j“和每列"i")获取过去两个数据点的平均值，并从过去六个数据点的平均值中减去它。

这些重新计算的数据点(每个点是过去两个点的平均值减去过去六个点的平均值)将创建自己的新数据点。

for (i in 1:ncol(data)){
   function_1 <- function(x){
     for(j in 1:nrow(data)){
       if (j > 6) {
       x[j,i] <- sapply(x[(j-2):j,i], mean, na.rm = TRUE)-sapply(x[(j-6):j,i], mean, na.rm = TRUE)
       }
     }
   }
}

但是，它不起作用。我怎么能把这事录下来？

Answer 1

以下几个问题：

1. --在循环
2. 中重复定义功能--您永远不会执行它。

试试这个：

function_1 <- function(x){
  for (i in 1:ncol(data)){
    for(j in 1:nrow(data)){
      if (j > 6) {
        x[j,i] <- sapply(x[(j-2):j,i], mean, na.rm = TRUE)-sapply(x[(j-6):j,i], mean, na.rm = TRUE)
      }
    }
  }
}

function_1(x)