sig
  val pearson : float array -> float array -> float
  val spearman : ?cmp:('a -> 'a -> int) -> 'a array -> 'a array -> float
  module Auto : sig val pearson : float array -> float array end
end