R/method_show-SamplingPattern.R

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

setMethod(
    f = "show",
    signature = signature(
        object = "SamplingPattern"
    ),
    definition = function(object) {
        sampleSize <- getSampleSize(object)
        cat("Object of class", dQuote(class(object)), "\n")
        cat("sample size:", sampleSize, "\n")
    }
)