#t = file.choose()arr = read.csv("C:\\Users\\Admin\\OneDrive - VietNam National University - HCM INTERNATIONAL UNIVERSITY\\Desktop\\Arrest dataset.csv") library(table1)##
## Attaching package: 'table1'## The following objects are masked from 'package:base':
##
## units, units<-arr$arrest1[arr$arrest==1] = "Yes"
arr$arrest1[arr$arrest==0] = "No"
arr$fin[arr$finance=="yes"] = 1
arr$fin[arr$finance=="no"] = 0
table1(~ age + finance + fin + arrest + arrest1 + race + parole + educ, data=arr)| Overall (N=432) |
|
|---|---|
| age | |
| Mean (SD) | 24.6 (6.11) |
| Median [Min, Max] | 23.0 [17.0, 44.0] |
| finance | |
| no | 216 (50.0%) |
| yes | 216 (50.0%) |
| fin | |
| 0 | 216 (50.0%) |
| 1 | 216 (50.0%) |
| arrest | |
| Mean (SD) | 0.264 (0.441) |
| Median [Min, Max] | 0 [0, 1.00] |
| arrest1 | |
| No | 318 (73.6%) |
| Yes | 114 (26.4%) |
| race | |
| black | 379 (87.7%) |
| other | 53 (12.3%) |
| parole | |
| no | 165 (38.2%) |
| yes | 267 (61.8%) |
| educ | |
| Mean (SD) | 3.48 (0.834) |
| Median [Min, Max] | 3.00 [2.00, 6.00] |