# lower raster resolution maxSSTEuropeLR <- aggregate(maxSSTEurope, fact=20, fun=mean) plot(maxSSTEuropeLR) # increase raster resolution maxSSTEuropeHR <- disaggregate(maxSSTEurope, fact=20) plot(maxSSTEuropeHR)