这是我的代码：
cpi <- c(100:200)
cpi_sp <- seq_along(cpi)
cpis <- list(cpi, c(100:200), c(100:200), c(100:200))
cpis_y <- lapply(cpis, function(x) split(x, ceiling(cpi_sp/12)) )
我希望split得到。 ceiling为第一个工作做好准备4观察，然后总是为下一个12.我知道有一个简单的方法，但直到现在我找不到它。谢谢你的帮助！
答案 0 :(得分：0)
akrun发布的答案是：
lapply(cpis, function(x) split(x, c(rep(0, 4), ceiling(cpi_sp[-(1:4)]/12))))