# NOT RUN {
library(tidyr)
pt <- pt_m4_compact %>%
extract_labels(col = 1, labels = c("b1", "b2", "b3", "b4", "Total general"))
pt <- pt_ine2871 %>%
extract_labels(col = 1, labels = c("18 Granada"))
# }
Run the code above in your browser using DataLab