Frequencies for HANDLS CTS Data

load(file="/Users/meganwilliams/Desktop/HANDLS Dissertation Stuff/ctsdat.Rda")

CTS05: I pushed, shoved, or slapped my partner

hist(ctsdat$CTS05)

table = table(ctsdat$CTS05)
print(table)

## 
##   1   2   3   4   5   6   7   8 
##  15  11   3   3   2   2  49 637

prop.table(table)

## 
##              1              2              3              4              5 
## 0.020775623269 0.015235457064 0.004155124654 0.004155124654 0.002770083102 
##              6              7              8 
## 0.002770083102 0.067867036011 0.882271468144

CTS07: I punched or kicked or beat-up my partne

hist(ctsdat$CTS07)

table = table(ctsdat$CTS07)
print(table)

## 
##   1   2   3   5   7   8 
##   6   3   2   1  11 699

prop.table(table)

## 
##              1              2              3              5              7 
## 0.008310249307 0.004155124654 0.002770083102 0.001385041551 0.015235457064 
##              8 
## 0.968144044321

CTS01: I insulted or swore or shouted or yelled at my partner

hist(ctsdat$CTS01)

table = table(ctsdat$CTS01)
print(table)

## 
##   1   2   3   4   5   6   7   8 
##  71  95 150  97  49  66  93 102

prop.table(table)

## 
##             1             2             3             4             5 
## 0.09820193638 0.13139695712 0.20746887967 0.13416320885 0.06777316736 
##             6             7             8 
## 0.09128630705 0.12863070539 0.14107883817

CTS09: I destroyed something belonging to my partner or threatened to hit my partner

hist(ctsdat$CTS09)

table = table(ctsdat$CTS09)
print(table)

## 
##   1   2   3   4   5   6   7   8 
##  14   2   2   1   1   2  40 659

prop.table(table)

## 
##              1              2              3              4              5 
## 0.019417475728 0.002773925104 0.002773925104 0.001386962552 0.001386962552 
##              6              7              8 
## 0.002773925104 0.055478502080 0.914008321775

CTS13: I used force (like hitting, holding down, or using a weapon) to make my partner have sex

hist(ctsdat$CTS13)

table = table(ctsdat$CTS13)
print(table)

## 
##   2   4   6   7   8 
##   2   2   1   3 713

prop.table(table)

## 
##              2              4              6              7              8 
## 0.002773925104 0.002773925104 0.001386962552 0.004160887656 0.988904299584

CTS15: I insisted on sex when my partner did not want to or insisted on sex without a condom (but did not use physical force

hist(ctsdat$CTS15)

table = table(ctsdat$CTS15)
print(table)

## 
##   1   2   3   4   5   7   8 
##   4   3   3   1   3   7 701

prop.table(table)

## 
##              1              2              3              4              5 
## 0.005540166205 0.004155124654 0.004155124654 0.001385041551 0.004155124654 
##              7              8 
## 0.009695290859 0.970914127424

CTS04: My partner had a sprain, bruise, or small cut or felt pain the next day because of a fight with me

hist(ctsdat$CTS04)

table = table(ctsdat$CTS04)
print(table)

## 
##   1   2   3   4   5   7   8 
##   9   4   6   1   3  20 679

prop.table(table)

## 
##              1              2              3              4              5 
## 0.012465373961 0.005540166205 0.008310249307 0.001385041551 0.004155124654 
##              7              8 
## 0.027700831025 0.940443213296

CTS12: My partner went to see a doctor (MD) or needed to see a doctor because of a fight with me

hist(ctsdat$CTS12)

table = table(ctsdat$CTS12)
print(table)

## 
##   1   2   3   4   5   7   8 
##   1   1   1   2   1  12 703

prop.table(table)

## 
##              1              2              3              4              5 
## 0.001386962552 0.001386962552 0.001386962552 0.002773925104 0.001386962552 
##              7              8 
## 0.016643550624 0.975034674064