getSampleVarTotalPPS:

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

Usage

getSampleVarTotalPPS(sampleDesign, y)

Arguments

sampleDesign
y

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 (sampleDesign, y) 
{
    n <- length(sampleDesign$weights)
    y <- y * sampleDesign$weights
    sampleVar <- sum((n * y - sum(y))^2)/n/(n - 1)
    return(sampleVar)
  }

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