ajout de MH en utilisant la fonction glm dans R