r语言 - 将函数应用于列表列表中的一系列项目

Question

我有一个函数，需要应用于列表池中列表中的同一项目。 具体如下：

myFUN<-function(x) { 
myRESULT<-sqrt(sd(x)/50)
return(myRESULT)
}

我需要将myFUN应用于列表，例如：

big.list[[i]][["smaller.list"]][["smallest.list"]]

在这里，问题是big.list有 1500 种不同的i，每种都有smaller.list和smallest.list。 换句话说，smallest.list是smaller.list中的列表，而smaller.list是i中的列表，i是big.list中的列表。is也是从1到1500的数字。

我需要对每个i应用myFUN并得到它们的平均值。

Answer 1

一个选项是遍历list，提取较小的.list和smallest.list，应用函数。 然后获取mean

mean(sapply(big.list, function(x) myFUN(x[["smaller.list"]][["smallest.list"]])))