# NOT RUN {
data(dems)
# crop to Australia
ext <- extent(c(
xmin = 106.58,
xmax = 157.82,
ymin = -45.23,
ymax = 1.14
))
# cropping all DEMS (Australia drifted in)
au<- crop(dems, ext)
# }
Run the code above in your browser using DataLab