栅格文件的均值

Question

请帮助您计算不同子文件夹中的光栅文件的均值。我想计算不同子文件夹中文件（1,2）和（3,4）的均值？我该如何进行？

我是编码的外行，我可以使用以下代码运行脚本，直到文件夹：

图书馆（栅格） 库（sp） 子<-list.dirs（full.names = FALSE，递归= FALSE）