```r require(Lock5withR) df_stats( Empathy ~ Sex, data = CompassionateRats, props) ## Sex prop_yes prop_no ## 1 F 1.0000000 NA ## 2 M 0.7083333 0.2916667 ```