if (FALSE) {
library(terra)
# see WCS_details() for variable options
WCS_details(wcs = 'ISSR800')
# get wind erodibility group
res <- ISSR800.wcs(list(aoi = c(-116, 35, -115.5, 35.5), crs = "EPSG:4326"),
var = 'weg', res = 800)
plot(res)
}
Run the code above in your browser using DataLab