> descr(dat) %>% print()
  Variables       Total        p        Test                              
1  gender                                                                 
2    F             1557 (56%)   <0.001   Chi-squared goodness-of-fit test 
3    M             1200 (44%)                                             
4  party                                                                  
5    Democrat      1246 (45%)   <0.001   Chi-squared goodness-of-fit test 
6    Independent   566 (21%)                                              
7    Republican    945 (34%)                                              

