Module Diffast_misc.Clustering

val cluster_size_threshold : int
type t = (Otree.index * Otree.index) list ref list
exception Cluster
val cluster : < get : 'a -> < children : < index : 'a.. > array.. >.. > -> < get : 'b -> < parent : < index : 'b.. >.. >.. > -> ('a * 'b) list -> ('a * 'b) list ref list
val exact_cluster : < get : Otree.index -> < children : < index : Otree.index.. > array.. >.. > -> < get : Otree.index -> < parent : < index : Otree.index.. >.. >.. > -> (Otree.index * Otree.index) list -> Edit.t list -> (Otree.index * Otree.index) list list
val roots_of_cluster : < get_roots_of_forest : int -> int -> int list.. > -> < get_roots_of_forest : int -> int -> int list.. > -> (int * int) list -> int * int
val clusters_to_string : (int * 'a) list ref list -> string
val mean_size : < get : 'a -> < children : < index : 'a.. > array.. >.. > -> < get : 'b -> < parent : < index : 'b.. >.. >.. > -> ('a * 'b) list -> int