# Import dataset use `psid_str()`, `psid_unzip()` and `psid_read()`
psid_varlist = c(" hh_age || [13]ER53017 [17]ER66017"," p_age || [13]ER34204")
str_df <- psid_str(varlist = psid_varlist, type = "separated")
# Below is the file path for the package test data, set this to your own directory
indir <- system.file(package = "psidread","extdata")
df <- psid_read(indir = indir,
str_df = str_df,
idvars = c("ER30000"),
type = "package",
filename = NA)
# Example 1: Individual-level output in long format
ind_long_df <- psid_reshape(psid_df = df,
str_df = str_df,
shape = "long",
level = "individual")
# Example 2: Household-level output in wide format
fam_wide_df <- psid_reshape(psid_df = df,
str_df = str_df,
shape = "wide",
level = "household")
Run the code above in your browser using DataLab