# NOT RUN {
### Example
data("eusilc")
set.seed(1)
eusilc1 <- eusilc[1 : 20,]
set.seed(1)
require(data.table)
data <- data.table(rbind(eusilc1, eusilc1),
year = c(rep(2010, nrow(eusilc1)),
rep(2011, nrow(eusilc1))))
data[, half:= .I - 2 * trunc((.I - 1) / 2)]
data[, quarter:= .I - 4 * trunc((.I - 1) / 4)]
data[age < 0, age:= 0]
PSU <- data[, .N, keyby = "db030"][, N:= NULL]
PSU[, PSU:= trunc(runif(nrow(PSU), 0, 5))]
data <- merge(data, PSU, all = TRUE, by = "db030")
PSU <- eusilc <- NULL
data[, strata := c("XXXX")]
data[, employed := trunc(runif(nrow(data), 0, 2))]
data[, id_lv2 := paste0("V", .I)]
data[, fpc := 0]
# }
# NOT RUN {
result <- vardbootstr(boots_count = 500, = "employed", H = "strata",
PSU = "PSU", w_final = "rb050", ID_level1 = "ids",
Z = NULL, Dom = NULL, dh = 1, fpc = "fpc",
dataset = data, years = "year",
subperiods = "half", year1 = 2010,
year = 2011, percentratio = 100,
confidence = 0.95, method = "netchanges")
# }
Run the code above in your browser using DataLab