Question a

data.xyz=UCBAdmissions
summary(data.xyz)

## Number of cases in table: 4526 
## Number of factors: 3 
## Test for independence of all factors:
##  Chisq = 2000.3, df = 16, p-value = 0

ftftftyggugyg

margin.table(data.xyz,3)

## Dept
##   A   B   C   D   E   F 
## 933 585 918 792 584 714

lll