if(require("broom")){
dat <- attitude
dat$high.rating <- (dat$rating > 70)
probit.model <- glm(high.rating ~ learning + critical +
advance, data=dat, family = binomial(link = "probit"))
ft <- as_flextable(probit.model)
ft
}
Run the code above in your browser using DataLab