R/method_getRelativeArea-CompactStratification.R

In spcosa: Spatial Coverage Sampling and Random Sampling from Compact Geographical Strata

setMethod(
    f = "getRelativeArea",
    signature = signature(
        object = "CompactStratification"
    ),
    definition = function(object) {
        area <- getArea(object)
        area / sum(area)
    }
)