# Example 1
# The hierarchical structure looks like one root node associated with 2 child
# nodes. These 2 child nodes have 3 and 2 sub-child nodes respectively.
nodes <- list(2, c(3, 2))
abc <- ts(5 + matrix(sort(rnorm(500)), ncol = 5, nrow = 100))
x <- hts(abc, nodes)
# Example 2
# Suppose we've got the bottom names that can be useful for constructing labels
# at higher levels. We need to specify how to split them in the argument
# "characters".
nodes <- list(2, c(2, 2), c(3, 2, 3, 2))
abc <- ts(5 + matrix(sort(rnorm(1000)), ncol = 10, nrow = 100))
colnames(abc) <- c("A10A", "A10B", "A10C", "A20A", "A20B",
"B30A", "B30B", "B40A", "B40B", "B40C")
y <- hts(abc, nodes, characters = c(1, 2, 1))
Run the code above in your browser using DataLab