Nothing
### R code from vignette source 'laeken-variance.Rnw'
###################################################
### code chunk number 1: laeken-variance.Rnw:52-53
###################################################
options(prompt="R> ")
###################################################
### code chunk number 2: laeken-variance.Rnw:93-95 (eval = FALSE)
###################################################
## vignette("laeken-standard")
## vignette("laeken-pareto")
###################################################
### code chunk number 3: laeken-variance.Rnw:111-113
###################################################
library("laeken")
data("eusilc")
###################################################
### code chunk number 4: laeken-variance.Rnw:140-141
###################################################
args(variance)
###################################################
### code chunk number 5: laeken-variance.Rnw:226-229
###################################################
a <- arpr("eqIncome", weights = "rb050", data = eusilc)
variance("eqIncome", weights = "rb050", design = "db040",
data = eusilc, indicator = a, bootType = "naive", seed = 123)
###################################################
### code chunk number 6: laeken-variance.Rnw:237-240
###################################################
b <- arpr("eqIncome", weights = "rb050", breakdown = "db040", data = eusilc)
variance("eqIncome", weights = "rb050", breakdown = "db040", design = "db040",
data = eusilc, indicator = b, bootType = "naive", seed = 123)
###################################################
### code chunk number 7: laeken-variance.Rnw:309-312
###################################################
variance("eqIncome", weights = "rb050", design = "db040",
data = eusilc, indicator = a, X = calibVars(eusilc$db040),
seed = 123)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.