if (FALSE) {
# load data
eusilc <- demo.eusilc(n = 1, prettyNames = TRUE)
# personal constraints
conP1 <- xtabs(pWeight ~ age, data = eusilc)
conP2 <- xtabs(pWeight ~ gender + region, data = eusilc)
conP3 <- xtabs(pWeight*eqIncome ~ gender, data = eusilc)
# household constraints
conH1 <- xtabs(pWeight ~ hsize + region, data = eusilc)
# simple usage ------------------------------------------
calibweights1 <- ipf(
eusilc,
conP = list(conP1, conP2, eqIncome = conP3),
bound = NULL,
verbose = TRUE
)
output <- summary(calibweights1)
# the output can easily be exported to an Excel file, e.g. with
# library(openxlsx)
# write.xlsx(output, "SummaryIPF.xlsx")
}
Run the code above in your browser using DataLab