GLM model

library(flextable)

Les données utilisées

dat <- attitude
dat$high.rating <- (dat$rating > 70)

Le modèle estimé

probit.model <- glm(high.rating ~ learning + critical +
   advance, data=dat, family = binomial(link = "probit"))

Le flextable correspondant

ft <- as_flextable(probit.model)
ft