# Utility functions for EU-SILC data Various utility functions mainly used for simulating EU-SILC data ```r loadSILC( file = NULL, filed = NULL, filer = NULL, filep = NULL, fileh = NULL, year = 2013, country = "Austria" ) mergeSILC(filed, filer, fileh, filep) checkCol(x, y) chooseSILCvars( x, vars = c("db030", "db040", "rb030", "rb080", "rb090", "pl031", "pb220a", "py010g", "py021g", "py050g", "py080g", "py090g", "py100g", "py110g", "py120g", "py130g", "py140g", "hy040g", "hy050g", "hy060g", "hy070g", "hy080g", "hy090g", "hy100g", "hy110g", "hy120g", "hy130g", "hy140g", "db090", "rb050", "pb190", "pe040", "pl051", "pl111", "rb010"), country = NULL ) modifySILC(x, country = "Austria") ``` ## Arguments - `file`: data set in R binary format, csv or sav (SPSS) of merged EU-SILC data. - `filed`: data set including the household register information - `filer`: data set including the personal register information - `filep`: data set including the personal information - `fileh`: data set including the household information - `year`: year of origin - `country`: country - `x`: public-use file (for checkCol function) or orginal data - `y`: scientific-use file (for checkCol function) - `vars`: variables to be selected for function chooseSILCvars ## Details Collection of functions to import, select and modify data EU-SILC data. Either file (merged data) or single files have to be provided for loadSILC(). ## Examples ```r ## Not run: x <- loadSILC("new_workfile.RData") filed <- "zielvar_d_eurostat2013.sav" filer <- "zielvar_r_eurostat2013.sav" filep <- "zielvar_p_eurostat2013.sav" fileh <- "zielvar_h_eurostat2013.sav" suf4 <- loadSILC(filed = filed, filer = filer, filep = filep, fileh = fileh) ## End(Not run) ## Not run: filed <- "zielvar_d_eurostat2013.sav" filer <- "zielvar_r_eurostat2013.sav" filep <- "zielvar_p_eurostat2013.sav" fileh <- "zielvar_h_eurostat2013.sav" suf4 <- loadSILC(filed = filed, filer = filer, filep = filep, fileh = fileh) suf <- mergeSILC(d = suf4[["d"]], r = suf4[["r"]], h = suf4[["h"]], p = suf4[["p"]]) ## End(Not run) data(eusilc13puf) ## instead of scientific-use file or ## original data we took the 2006 synthetic data data(eusilcS) ## check which columns of y are in x checkCol(eusilc13puf, eusilcS) ## Not run: ## on original silc data to extract needed variables for SGA project on SILC x <- loadSILC("new_workfile.RData") chooseSILCvars(x) ## End(Not run) ## Not run: ## wrapper to prepare SILC data ## on original silc data x <- loadSILC("new_workfile.RData") x <- chooseSILCvars(x) modifySILC(x) ## End(Not run) ``` ## Author(s) Matthias Templ

silcTools2 function