datatable(wa_tot[c(1, 4, 5, 6, 7, 11)], options = list(pageLength = 5))