data("trans", package = "cat2cat")
data("occup", package = "cat2cat")
mappings <- get_mappings(trans)
mappings$to_old[1:4]
mappings$to_new[1:4]
mapp_p <- cat_apply_freq(
mappings$to_old,
get_freqs(
occup$code[occup$year == "2008"],
occup$multiplier[occup$year == "2008"]
)
)
head(data.frame(I(mappings$to_old), I(mapp_p)))
mapp_p <- cat_apply_freq(
mappings$to_new,
get_freqs(
occup$code[occup$year == "2010"],
occup$multiplier[occup$year == "2010"]
)
)
head(data.frame(I(mappings$to_new), I(mapp_p)))
Run the code above in your browser using DataLab