library(raster)
library(ggplot2)
original <- raster("HARV/HARV_dsmCrop.tif")
original
smaller <- aggregate(original, 2)
res(original)
res(smaller)
smaller
plot(smaller)
writeRaster(smaller, "HARV_dsmCrop.tif", overwrite = TRUE)
library(raster)
library(ggplot2)
original <- raster("HARV/HARV_dsmCrop.tif")
original
smaller <- aggregate(original, 2)
res(original)
res(smaller)
smaller
plot(smaller)
writeRaster(smaller, "HARV_dsmCrop.tif", overwrite = TRUE)
library(raster)
library(ggplot2)
original <- raster("HARV/HARV_dsmCrop.tif")
original
smaller <- aggregate(original, 2)
res(original)
res(smaller)
smaller
plot(smaller)
writeRaster(smaller, "HARV/HARV_dsmCrop.tif", overwrite = TRUE)
library(raster)
library(ggplot2)
original <- raster("HARV/HARV_dtmCrop.tif")
original
smaller <- aggregate(original, 2)
res(original)
res(smaller)
smaller
plot(smaller)
writeRaster(smaller, "HARV/HARV_dtmCrop.tif", overwrite = TRUE)
library(raster)
library(ggplot2)
original <- raster("SJER/SJER_dtmCrop.tif")
original
smaller <- aggregate(original, 2)
res(original)
res(smaller)
smaller
plot(smaller)
writeRaster(smaller, "SJER/SJER_dtmCrop.tif", overwrite = TRUE)
library(raster)
library(ggplot2)
original <- raster("SJER/SJER_dsmCrop.tif")
original
smaller <- aggregate(original, 2)
res(original)
res(smaller)
smaller
plot(smaller)
writeRaster(smaller, "SJER/SJER_dsmCrop.tif", overwrite = TRUE)
library(raster)
library(ggplot2)
original <- raster("SJER/SJER_dsmCrop.tif")
original
smaller <- aggregate(original, 2)
res(original)
res(smaller)
smaller
plot(smaller)
writeRaster(smaller, "SJER/SJER_dsmCrop.tif", overwrite = TRUE)
library(raster)
library(ggplot2)
original <- raster("SJER/SJER_dtmCrop.tif")
original
smaller <- aggregate(original, 2)
res(original)
res(smaller)
smaller
plot(smaller)
writeRaster(smaller, "SJER/SJER_dtmCrop.tif", overwrite = TRUE)
library(raster)
library(ggplot2)
original <- raster("HARV/HARV_dtmCrop.tif")
original
smaller <- aggregate(original, 2)
res(original)
res(smaller)
smaller
plot(smaller)
writeRaster(smaller, "HARV/HARV_dtmCrop.tif", overwrite = TRUE)
library(raster)
library(ggplot2)
original <- raster("HARV/HARV_dsmCrop.tif")
original
smaller <- aggregate(original, 2)
res(original)
res(smaller)
smaller
plot(smaller)
writeRaster(smaller, "HARV/HARV_dsmCrop.tif", overwrite = TRUE)
