# NOT RUN {
#encoding
dq <- ISOImageryNominalResolution$new()
d <- ISODistance$new(value = 1, uom = "m", useUomURI = TRUE)
dq$setScanningResolution(d)
dq$setGroundResolution(d)
#xml
xml <- dq$encode()
# }
Run the code above in your browser using DataLab