```r
# srtm1<-getData('SRTM', lon=-2, lat=55)
# srtm2<-getData('SRTM', lon=1, lat=55)
# srtm3<-getData('SRTM', lon=-6, lat=55)
# srtm4<-getData('SRTM', lon=-2, lat=60)
# srtm5<-getData('SRTM', lon=-6, lat=60)
```