finished rasterClusterApply.R