sig
  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) Smatrices.Distances.dist_matrix
  val group_distances :
    ?commutative:bool ->
    ('a -> 'b) ->
    intra:('c list list -> 'c) ->
    inter:('c list list -> 'c) ->
    ('a, 'c) Smatrices.Distances.dist_matrix ->
    ('b, 'c) Smatrices.Distances.dist_matrix
  val latex :
    Pervasives.out_channel ->
    ?samples_in_rows:bool ->
    ?cols:int ->
    ?fill:bool ->
    ?rotate_titles:bool ->
    ('a -> string) ->
    ('b -> string) -> ('a, 'b) Smatrices.Distances.dist_matrix -> unit
  val latex_sorted_dists :
    Pervasives.out_channel ->
    ('a -> string) ->
    ('b -> string) ->
    ('b -> 'b -> int) -> ('a, 'b) Smatrices.Distances.dist_matrix -> unit
  val store_dist_matrix :
    string -> ('a, 'b) Smatrices.Distances.dist_matrix -> unit
  val load_dist_matrix : string -> ('a, 'b) Smatrices.Distances.dist_matrix
end