# NOT RUN {
data("mortgage")
fm <- deny ~ black + p_irat
t <- c(rep(1, 2), rep(0, 14)) # Specify variables in interest
cl <- matrix(c(1,0,0,1), nrow=2) # Meaning: show variables in interest for both groups
# Drawing Distributions
CAgraph <- CA(fm=fm, data = mortgage, var.T = "black", method = "logit", cl = cl,
t = t, interest = "dist")
CAplot(var = "p_irat", output = CAgraph)
# }
Run the code above in your browser using DataLab