Olá colegas,

Existe alguma maneira de reduzir a quantidade de objetos auxiliares no exemplo abaixo (arm1, arm2, ..., arm12), para a entrada no laço for?

 

 arm1  <- list()
 arm2  <- list()
 arm3  <- list()
 arm4  <- list()
 arm5  <- list()
 arm6  <- list()
 arm7  <- list()
 arm8  <- list()
 arm9  <- list()
 arm10 <- list()
 arm11 <- list()
 arm12 <- list()

for (i in 1:nlag)
{
  arm1[[i]]  <- unlist(OK1[d1[i]:d2[i]])
  arm2[[i]]  <- unlist(OK1[d3[i]:d4[i]])
  arm3[[i]]  <- unlist(OK1[d5[i]:d6[i]])
  arm4[[i]]  <- unlist(OK1[d7[i]:d8[i]])
  arm5[[i]]  <- unlist(OK1[d9[i]:d10[i]])
  arm6[[i]]  <- unlist(OK1[d11[i]:d12[i]])
  arm7[[i]]  <- unlist(OK1[d13[i]:d14[i]])
  arm8[[i]]  <- unlist(OK1[d15[i]:d16[i]])
  arm9[[i]]  <- unlist(OK1[d17[i]:d18[i]])
  arm10[[i]] <- unlist(OK1[d19[i]:d20[i]])
  arm11[[i]] <- unlist(OK1[d21[i]:d22[i]])
  arm12[[i]] <- unlist(OK1[d23[i]:d24[i]])
}

desde já agradeço!