r - 使用R中的for循环填充要列出的数据框

Question

我正在运行互相关分析，并尝试通过数据框中的列对循环分析。我创建了一个列表来填充结果输出，但它没有正确填充。打印功能虽然有效。

我做了一些研究，但仍然没有找到解决这个问题的方法。请帮忙。

library(tseries)

blahthresholdtest <- matrix(rnorm(100, 50, 1), nrow = 20, ncol = 4)

thislist <- list()

test <- for(i in seq(1, ncol(blahthresholdtest), 2)){
  for(k in seq(1, ncol(blahthresholdtest), 1)) {
  vector <- numeric(ncol(blahthresholdtest))
  ccftime <- ccf(blahthresholdtest[, i], blahthresholdtest[, i+1],
      type="correlation", na.action=na.omit, plot=FALSE)
  crosscorr <- cbind(ccftime$acf, ccftime$lag)
  crosscorr <- as.data.frame(crosscorr)
  colnames(crosscorr) <- c("CCF", "lag")
  vector[k+1] <- with(crosscorr, lag[CCF == max(CCF)])
  thislist[[k]] <- vector
    }
  print(vector[k])
  print(vector[k + 1])
}

thislist
do.call(rbind, thislist)

标签： rlistfor-loopdataframepopulate