r - 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类型对象中的命名槽。