My for loop при задании ошибки

Question

Я хочу сохранить подмножество имени файла summer для разного временного блока в диапазоне от 1 до 10.lm1 будет считывать данные первого блока времени.lm2 для второго блока времени & и так далее. Я написал ниже для цикла, но он не работает. У вас проблема?

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) 
}