将功能应用于列表列表中的一系列项目

Question

我有一个功能需要应用于列表池中列表中的同一项目。如下：

myFUN<-function(x) { 

myRESULT<-sqrt(sd(x)/50)

return(myRESULT)
}

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

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

在这里，问题是i中有1500个不同的big.list，并且每个都有smaller.list和smallest.list。换句话说，smallest.list是smaller.list中的列表，而smaller.list是i中的列表，而i是big.list中的列表。另外i是1到1500之间的数字。

我需要将myFUN应用于每个i，并获取它们的均值。

Answer 1

一个选择是循环遍历list，提取较小的列表和最小的列表，然后应用该函数。然后获取mean

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