たとえば、5 つのリスト内にネストされた 3 つのリストを宣言する簡単な方法:
my.list<-lapply(my.list<-vector(mode = 'list',5),function(x) x<-vector(mode='list',3))
summary(my.list)
Length Class Mode
[1,] 3 -none- list
[2,] 3 -none- list
[3,] 3 -none- list
[4,] 3 -none- list
[5,] 3 -none- list
別のネストされたリスト (たとえば 2 つのスロット) を追加する場合は、次のように別のラップを追加するだけです。
my.list<-lapply(my.list<-vector(mode = 'list',5),function(x)
x<-lapply(x<-vector(mode = 'list',3),function(x)
x<-vector(mode='list',2)))
summary(my.list)
Length Class Mode
[1,] 3 -none- list
[2,] 3 -none- list
[3,] 3 -none- list
[4,] 3 -none- list
[5,] 3 -none- list
summary(my.list[[1]])
Length Class Mode
[1,] 2 -none- list
[2,] 2 -none- list
[3,] 2 -none- list