带有列表的嵌套 For 循环答案

【问题标题】：Nested For Loop with lists带有列表的嵌套 For 循环
【发布时间】：2017-08-23 06:25:48
【问题描述】：

我正在尝试创建一个嵌套的 For 循环，它执行以下操作：外部循环获取 100 天的股票数据，然后每个循环向前迭代 1 天。内循环需要 100 天并运行 100 次回归（即 Day1:100、Day2:100、Day3:100 等）。它将每个回归的 R2 保存到一个列表中。假设，列表的每个元素应该包含 100 个 r2s。对 R 有点陌生，我不确定自己做错了什么，但最终结果是一个列表，其中每个元素只有一个值，而不是 100。这是我的代码：

require(quantmod)

getSymbols("SPY", src = "google", from = "2016-10-15", to = "2017-08-14")
tmp <- SPY

tickerClose <- data.frame(tmp[,"SPY.Close"], Time = index(tmp))    

grab <- list()
for (j in 1:(nrow(tickerClose)-100)) {
        temp <- tickerClose[j:(99+j),]
                for (i in 1:100) {
                      tmpSet <- temp[(nrow(temp)-(100-i)):nrow(temp),]
                      colnames(tmpSet) <- c("Close","Time")
                      tickerQuad <- lm(Close ~ as.vector(Time), data = tmpSet)
                      grab[[i]] <- summary(tickerQuad)[8]
                } 
}

【问题讨论】：

标签： r

【解决方案1】：

你可以调整你的代码

grab <- list()
final_grab <- list()
for (j in 1:(nrow(tickerClose)-100)) {
  for (i in 1:100) {
    <your code>
    grab[[i]] <- summary(tickerQuad)[8]
  } 
  final_grab[[j]] <- grab
}

final_grab 将获得您感兴趣的结果列表。

【讨论】：