# NOT RUN {
xx = mtcars2 %>% dplyr::select(1:9)
crosstable(xx) %>% as_gt
crosstable(xx, by=am) %>% as_gt
crosstable(xx, by=cyl, test=TRUE, total=TRUE, effect=TRUE) %>%
as_gt(keep_id=TRUE, show_test_name=FALSE, by_header="Cylinders")
# }
Run the code above in your browser using DataLab