我的循环给出了错误

Question

我想保存文件名summer的子集，用于从1到10的不同时间块.lm1将读取第一时间块的数据.lm2用于第二时间块＆amp;等等。我已经写了下面的循环，但它不起作用。问题是什么？

library(openxlsx)
Master=read.xlsx("Master File from Apr-11 to Feb-15.xlsx",sheet="Sheet1")
summer=subset(Master, Season=="Winter")
for (i in 1:10) {
print(i)
lm[i]=subset(summer,Block==i)

}

Answer 1

我的建议是将您的数据存储到列表中。您可以使用lapply或sapply对其进行处理。

out <- vector("list", 10)

for (i in 1:10) {
  message(sprintf("Processing iteration number %s", i))
  out[[i]] <- subset(summer, Block == i)
}