R附加分配列表

Question

我想定义一个依赖于循环序列的列表，并将此列表附加到另一个列表

for (i in 4:4) {
    nam <- paste0("estim",i)
    assign(nam, list(1:10))
    assign(paste0(nam,"[2]"),list(11:40))   
}


##estim4
##[[1]]
##[1]  1  2  3  4  5  6  7  8  9 10

期望的输出

## estim4
## [[1]]
##  [1]  1  2  3  4  5  6  7  8  9 10

## [[2]]
##  [1] 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
## [26] 36 37 38 39 40

有什么帮助吗？

更新

正如@nicola所提到的，这种方法难以实现，并且授予所需的输出并不是我所要求的。抱歉这个不精确的问题。

l <-  list()
for (i in 1:1) {
    l[i] <- list(list(1:10));
    l[[i]][2] <-  list(list(letters[1:4]))
}


##  l
## [[1]]
## [[1]][[1]]
##  [1]  1  2  3  4  5  6  7  8  9 10

## [[1]][[2]]
## [[1]][[2]][[1]]
## [1] "a" "b" "c" "d"

是否有更简单的方法来携带变量？