let nb_samples {clusters=clusters} =
    let result = Array.make (Cluster_collection.length clusters) min_int in
    let index = ref 0 in
    let iterande cluster =
      result.(!index) <- cluster.nb_samples;
(* result.(!index) <- cluster.nb_distributions; *)
(*       assert (cluster.id = i); (*depends on Cluster_collection*) *)
      incr index in
    Cluster_collection.iter iterande clusters;
    result