out <- model_aggregate(SSBtoolsData("magnitude1"),
formula = ~eu:sector4 + geo * sector2,
sum_vars = "value",
avoid_hierarchical = TRUE)
out
term_labels <- output_term_labels(out)
term_labels
cbind(term_labels, out)
Run the code above in your browser using DataLab