R/method_getNumberOfCells-CompactStratification.R

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

setMethod(
    f = "getNumberOfCells",
    signature = signature(
        object = "CompactStratification"
    ),
    definition = function(object) {
        tapply(
            X = object@stratumId,
            INDEX = object@stratumId,
            FUN = length
        )
    }
)