Sauvegarde séjours manquants

donnees.R

@@ -154,3 +154,5 @@ exhau[exhau$mois == mois,]$manq <- gam %>% nrow
 save(exhau, file = "exhau.Rdata")
 
 save(Ovalide, OvalideP, annee, mois, rum, rss, gam, exhau, date, file = "donnees.Rdata")
+
+write.csv2(gam, "gam.csv")