library(flextable)
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