Update an aggregation structure

Price update the weights in a price index aggregation structure.

Usage

# S3 method for class 'piar_aggregation_structure'
update(object, index, period = end(index), ..., r = 1)

Arguments

object

A price index aggregation structure, as made by aggregation_structure().

index

A fixed-base (direct) price index, or something that can be coerced into one. Usually an aggregate price index as made by aggregate().

period

The time period used to price update the weights. The default uses the last period in index.

...

Not currently used.

r

Order of the generalized mean to update the weights. The default is 1 for an arithmetic index.

Value

A copy of object with price-updated weights using the index values in index.

See also

aggregate() to make an aggregated price index.

Other aggregation structure methods: as.matrix.piar_aggregation_structure(), cut.piar_aggregation_structure(), levels.piar_aggregation_structure(), weights.piar_aggregation_structure()

Examples

# 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)
#> [[1]]
#> 1 
#> 8 
#> 
#> [[2]]
#> 11 12 
#>  4  4 
#> 
#> [[3]]
#> 111 112 121 
#>   1   3   4 
#> 

weights(update(pias, index), ea_only = FALSE)
#> [[1]]
#>   1 
#> 916 
#> 
#> [[2]]
#>  11  12 
#> 268 648 
#> 
#> [[3]]
#> 111 112 121 
#>  28 240 648 
#>