logis1 <- glm(fichier$sortie ~ fichier$age + fichier$sexe + fichier$pouls, family="binomial") 
logis1 <- glm(sortie~age + sexe + pouls, data=fichier, family="binomial")