### Example
data("eusilc")
set.seed(1)
eusilc1 <- eusilc[1 : 100,]
set.seed(1)
data <- data.table(rbind(eusilc1, eusilc1),
year = c(rep(2010, nrow(eusilc1)),
rep(2011, nrow(eusilc1))))
data[, country := "AT"]
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, 100))]
data <- merge(data, PSU, all = TRUE, by = "db030")
PSU <- eusilc <- NULL
data[, strata := c("XXXX")]
data[, employed := trunc(runif(nrow(data), 0, 2))]
data[, unemployed := trunc(runif(nrow(data), 0, 2))]
data[, labour_force := employed + unemployed]
data[, id_lv2 := .I]
result <- vardcrosannual(Y = "employed", H = "strata",
PSU = "PSU", w_final = "rb050",
ID_level1 = "db030", ID_level2 = "id_lv2",
Dom = NULL, Z = NULL, country = "country",
years = "year", subperiods = "quarter",
dataset = data, percentratio = 100,
confidence = 0.95)
## Not run:
# result <- vardcrosannual(Y = "unemployed", H = "strata",
# PSU = "PSU", w_final = "rb050",
# ID_level1 = "db030", ID_level1 = "id_lv2",
# Dom = NULL, Z = "labour_force",
# country = "country", years = "year",
# subperiods = "quarter", dataset = data,
# percentratio = 100, confidence = 0.95) ## End(Not run)
Run the code above in your browser using DataLab