library(tidyr)
pt <-
pt_m4 %>%
remove_top(1) %>%
define_labels(n_col = 2, n_row = 2) %>%
fill_labels()
pt <-
pt_ine2871 %>%
remove_top(6) %>%
remove_bottom(9) %>%
define_labels(n_col = 1, n_row = 2) %>%
fill_labels()
Run the code above in your browser using DataLab