# load data for Germany
data("gap")
country <- "Germany"
# compute cubs indicator
namesCubs <- c("indu", "serv", "buil")
namesVACubs <- paste0("va", namesCubs)
tscubs <- cubs(
tsCU = gap[[country]][, namesCubs],
tsVA = gap[[country]][, namesVACubs]
)
Run the code above in your browser using DataLab