getSampleDesign:

In BERENZ/RISQ: What the package does (short line)

Usage

getSampleDesign(sampleWeights, sampleStrata)

Arguments

sampleWeights
sampleStrata

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (sampleWeights, sampleStrata) 
{
    minmax <- sapply(split(sampleWeights, sampleStrata), range)
    constantWeights <- all(minmax[1, ] == minmax[2, ])
    nStrata <- length(levels(sampleStrata[, drop = TRUE]))
    if (constantWeights) {
        type <- ifelse(nStrata == 1, "SI", "STSI")
        getVarTotal <- getSampleVarTotalSTSI
    }
    else {
        type <- ""
        getVarTotal <- getSampleVarTotalPPS
    }
    sampleDesign <- list(type = type, weights = sampleWeights, 
        strata = sampleStrata, getVarTotal = getVarTotal)
    return(sampleDesign)
  }

BERENZ/RISQ documentation built on May 5, 2019, 10:25 a.m.