> descr(dat, "group", test_options = list(paired = TRUE, indices = c(1:1600, 1:
+   1600))) %>% print()
  Variables     first     second     Total     p       Test        CI           
1  var                                                                          
2    Approve     944 (59~  880 (55%~  1824 (5~  <0.00~  McNemars ~  Prop. dif. ~
3    Disapprov~  656 (41~  720 (45%~  1376 (4~                      [0.0058, 0.~

