R/method_getArea-CompactStratification.R

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

setMethod(
    f = "getArea",
    signature = signature(
        object = "CompactStratification"
    ),
    definition = function(object) {
        cellSize <- getCellSize(object)
        cellArea <- prod(cellSize)
        nCells <- getNumberOfCells(object)
        nCells * cellArea        
    }
)