piar (version 0.8.2)

weights.piar_aggregation_structure: Get the weights for an aggregation structure

Description

Get and set the weights for a price index aggregation structure.

Usage

# S3 method for piar_aggregation_structure
weights(object, ..., ea_only = TRUE, na.rm = FALSE)
weights(object) <- value
# S3 method for piar_aggregation_structure
weights(object) <- value
set_weights(object, value)

Value

weights() returns a named vector of weights for the elemental aggregates. The replacement method replaces these values without changing the aggregation structure. (set_weights() is an alias that's easier to use with pipes.)

If ea_only = FALSE then the return value is a list with a named vector of weights for each level in the aggregation structure.

Arguments

object

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

...

Not currently used.

ea_only

Should weights be returned for only the elemental aggregates (the default)? Setting to FALSE gives the weights for the entire aggregation structure.

na.rm

Should missing values be removed when aggregating the weights (i.e., when ea_only = FALSE)? By default, missing values are not removed.

value

A numeric vector of weights for the elemental aggregates of object.

See Also

Other aggregation structure methods: as.matrix.piar_aggregation_structure(), cut.piar_aggregation_structure(), levels.piar_aggregation_structure(), update.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)

# Extract the weights

weights(pias)

# ... or update them

weights(pias) <- 1:3
weights(pias)