ajout de la sauvegarde des données pour le graphique

dirsol/ComputeSampleOptim.R

@@ -183,4 +183,14 @@ r = plotResuRMQS( mask_values,
 
 tmap_save(r , file = paste0("dirsol/figures/",scenario,resolution,echant,".jpeg") )
 
-
+# sauvegarde ------------
+save(
+     sample7,
+     sampleRand ,
+     sample9 ,
+     titreCartetot ,
+     nb_domainskept ,
+     echant,
+     nb_domainsTOT ,
+     file = paste0("dirsol/output/",scenario,resolution,echant,".RData") 
+     )