# A simple aggregation structure
# 1
# |-----+-----|
# 11 12
# |---+---| |
# 111 112 121
# (1) (3) (4)
aggregation_weights <- data.frame(
level1 = c("1", "1", "1"),
level2 = c("11", "11", "12"),
ea = c("111", "112", "121"),
weight = c(1, 3, 4)
)
pias <- as_aggregation_structure(aggregation_weights)
index <- as_index(
matrix(1:9, 3, dimnames = list(c("111", "112", "121"), NULL))
)
weights(pias, ea_only = FALSE)
weights(update(pias, index), ea_only = FALSE)
Run the code above in your browser using DataLab