GLM model

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