R提取列表和子列表的成员（S4类）

Question

我正在努力从列表中提取成员。下面显示的代码生成一个包含5个成员的列表，每个成员都有一个包含两个成员的（子）列表。 我想提取每个子列表的第一个成员，即（W1和V1）。我该怎么做？

library(wavelets)

library(fGarch)

x<-rnorm(32)

spec.c <- garchSpec(model = list(omega=0.99, alpha=0.005, beta=0.005))

sim <- replicate(5, dwt(cumsum(garchSim(spec.c, n = 32)), filter="haar", 
                                    n.levels=2, boundary="reflection"))

非常感谢。

Answer 1

试试这个......

W <- lapply( sim , function(x) `@`( x , W)[[1]] )
V <- lapply( sim , function(x) `@`( x , V)[[1]] )

您将获得5个顶级列表中每个列表的第一个W列表以及5个顶级列表中每个列表的第一个V。

@运算符用于访问S4类型对象中的命名槽。