## UCB Admissions
data("UCBAdmissions")
ucb <- aperm(UCBAdmissions)
## association plot for conditional independence
strucplot(ucb, expected = ~ Dept * (Admit + Gender),
core = struc_assoc(ylim = c(-4, 4)), labeling_args = list(abbreviate = c(Admit = 3)))
Run the code above in your browser using DataLab