88p-simpson's-paradox2.R

# Title     : TODO
# Objective : TODO
# Created by: justk
# Created on: 2021-05-23
# Reference : https://rfriend.tistory.com/tag/addmargins%28%29

#책에없음

data(UCBAdmissions)
str(UCBAdmissions)
apply(UCBAdmissions, c(1, 2), sum)
mosaicplot(~Dept + Gender + Admit,
           data = UCBAdmissions,
           color = c('red', 'grey'),
           off = 1,
           dir=c('v','v','h'),
           main = 'UC Berkeley Admissions')
#이것만 보면 여성이 남성에 비해서 합격에 차별을 받았다고 보여진다.