data(eusilc)
dataset <- data.table(IDd = 1 : nrow(eusilc), eusilc)
aa <- vardomh(Y = "eqIncome", H = "db040", PSU = "db030",
w_final = "rb050", ID_level1 = "db030",
ID_level2 = "rb030", Dom = "db040", period = NULL,
N_h = NULL, Z = NULL, dataset = dataset, X = NULL,
X_ID_level1 = NULL, g = NULL, q = NULL,
datasetX = NULL, confidence = 0.95, percentratio = 1,
outp_lin = TRUE, outp_res = TRUE)
## Not run:
# dataset2 <- copy(dataset)
# dataset$period <- 1
# dataset2$period <- 2
# dataset <- data.table(rbind(dataset, dataset2))
#
# # by default without using fh_zero (finite population correction)
# aa2 <- vardomh(Y = "eqIncome", H = "db040", PSU = "db030",
# w_final = "rb050", ID_level1 = "db030",
# ID_level2 = "rb030", Dom = "db040", period = "period",
# N_h = NULL, Z = NULL, dataset = dataset,
# X = NULL, X_ID_level1 = NULL,
# g = NULL, q = NULL, datasetX = NULL,
# confidence = .95, percentratio = 1,
# outp_lin = TRUE, outp_res = TRUE)
# aa2
#
# # without using fh_zero (finite population correction)
# aa3 <- vardomh(Y = "eqIncome", H = "db040", PSU = "db030",
# w_final = "rb050", ID_level1 = "db030",
# ID_level2 = "rb030", Dom = "db040",
# period = "period", N_h = NULL, fh_zero=FALSE,
# Z = NULL, dataset = dataset, X = NULL,
# X_ID_level1 = NULL, g = NULL, q = NULL,
# datasetX = NULL, confidence = .95,
# percentratio = 1, outp_lin = TRUE,
# outp_res = TRUE)
# aa3
#
# # with using fh_zero (finite population correction)
# aa4 <- vardomh(Y="eqIncome", H="db040", PSU="db030", w_final="rb050",
# ID_level1="db030", ID_level2="rb030", Dom = "db040",
# period = "period", N_h = NULL, fh_zero=TRUE,
# Z = NULL, dataset = dataset,
# X = NULL, X_ID_level1 = NULL,
# g = NULL, q = NULL, datasetX = NULL,
# confidence = .95, percentratio = 1,
# outp_lin = TRUE, outp_res = TRUE)
# aa4
# ## End(Not run)
Run the code above in your browser using DataLab