# NOT RUN {
data("mortgage")
fm <- deny ~ black + p_irat + hse_inc
result <- Subpop(fm = fm, data = mortgage, var.T = "black", method = "logit")
Subpopplot(varx = mortgage$p_irat, vary = mortgage$ccred, output = result)
# }
Run the code above in your browser using DataLab