## Example of data redistribution in Northern American countries
data(datatrade_NorthAm)
# Selection of internal production data from January to March to be proportionally
# redistributed based on sub-national consumption data
data_ip <- datatrade_NorthAm$internal_production
data_ip <- data_ip[data_ip$time_period=="January-March",]
# consumption data at sub-national level
data_sub <- datatrade_NorthAm$consumption_iso2
# Redistribution
data_redist <- redist_iso(data = data_ip,
iso_col = "reporter",
values_col = "value",
redist_data = data_sub,
redist_iso_col = "iso_3166_2",
redist_values_col = "value")
head(data_redist)
Run the code above in your browser using DataLab