Module Cgr.Distances


module Distances: Cgr_distances


type ('a, 'b) dist_matrix = {
   dist_elements : 'a array;
   dist_matrix : 'b array array;
   dist_samples : int array;
}
val make_matrix : ?commutative:bool ->
('a -> 'a -> 'b) -> 'b -> 'a array -> ('a, 'b) dist_matrix
val group_distances : ?commutative:bool ->
('a -> 'b) ->
intra:('c list list -> 'c) ->
inter:('c list list -> 'c) ->
('a, 'c) dist_matrix -> ('b, 'c) dist_matrix
val latex : Pervasives.out_channel ->
?samples_in_rows:bool ->
?cols:int ->
?fill:bool ->
?rotate_titles:bool ->
('a -> string) ->
('b -> string) -> ('a, 'b) dist_matrix -> unit
val latex_sorted_dists : Pervasives.out_channel ->
('a -> string) ->
('b -> string) ->
('b -> 'b -> int) -> ('a, 'b) dist_matrix -> unit
val store_dist_matrix : string -> ('a, 'b) dist_matrix -> unit
val load_dist_matrix : string -> ('a, 'b) dist_matrix