如何在for循环中添加平均栅格来创建栅格?R

I have several directories with 700+ binary encoded rasters that i take average the output rasters per directory. however, i currently create the rasters 1 by 1 in a for loop, then load newly created rasters back into R to take the sum to obtain the monthly rainfall total. I have several directories with 700+ binary enc