> descr(dat, "gender", test_options = c(exact = TRUE)) %>% print()
  Variables F          M          Total      p       Test    CI     CI_name     
1  party                                                                        
2    A       12 (60%)   8 (33%)    20 (45%)   0.087   Bosch~  [-0.~  CI for dif~
3    B       8 (40%)    16 (67%)   24 (55%)                                     

