How to Create a New Raster Image Representing the Average of Adjacent Rasters in R