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