# NOT RUN {
library(dplyr)
library(tsibble)
cricket_tsibble <- cricket %>%
mutate(data_index = row_number()) %>%
as_tsibble(index = data_index)
hierarchy_model <- tibble::tibble(
units = c("index", "ball", "over", "inning", "match"),
convert_fct = c(1, 6, 20, 2, 1)
)
cricket_tsibble %>% validate_gran(
gran = "over_inning",
hierarchy_tbl = hierarchy_model,
validate_col = "over"
)
# }
Run the code above in your browser using DataLab