Ajout graphe que des assos

script/src/point_assos_to_gephi.ml

@@ -75,8 +75,8 @@ let () = begin
         Csv.save edges "../../res_script/edges_avec_fantome.csv";
         let points_assos = supprime_eleve_sans_assos points_assos in
         let edges,nodes= Csv.to_graph points_assos "Nom Prenom" in
-        Csv.save nodes "../../res_script/nodes.csv";
-        Csv.save edges "../../res_script/edges.csv";
+        Csv.save nodes "../../res_script/nodes_sans_fantome.csv";
+        Csv.save edges "../../res_script/edges_sans_fantome.csv";
 
         
         let eleve_sans_asso = supprime_eleve_avec_assos eleves_assos in
@@ -98,11 +98,10 @@ let () = begin
         let eleve_assos_fantome_csv = Csv.create ["Nom Prenom";"Assos";"Fantome"] in
         let eleve_assos_fantome_csv = List.fold_left (fun acc arr -> if arr.(3) = "Asso" then (Csv.add_line acc [|arr.(0);"1";""|]) else (Csv.add_line acc [|arr.(0);"";"1"|])  ) eleve_assos_fantome_csv (Csv.get_data tout_eleve_sans_association) in
 
-        Csv.save eleve_assos_fantome_csv "../../res_script/tout_eleve_fantome_assos.csv";
 
         let edges_asso_fantome,nodes_asso_fantome = Csv.to_graph eleve_assos_fantome_csv "Nom Prenom" in
-        Csv.save nodes_asso_fantome "../../res_script/nodes_asso_fantome.csv";
-        Csv.save edges_asso_fantome "../../res_script/edges_asso_fantome.csv";
+        Csv.save nodes_asso_fantome "../../res_script/nodes_eleve_vs_fantome.csv";
+        Csv.save edges_asso_fantome "../../res_script/edges_eleve_vs_fantome.csv";