sig
  val mean : int array -> float
  val mean_float : float array -> float
  val mean_float_list : float list -> float
  val frequencies : 'a list -> ('a * int) list
  val information : 'a list -> float
  val histogram_full : float -> float -> int -> float list -> int array
  val histogram : int -> float list -> int array
  val hamming_distance : 'a array -> 'a array -> int
  module Chi_square :
    sig
      val log_gamma : float -> float
      exception Converged
      val gamma_0_x : float -> float -> float
      val gamma_x_infty : float -> float -> float
      val gamma_p : float -> float -> float
      val gamma_complement : float -> float -> float
      val chi_squared : int array -> int -> int array -> int -> float * int
      external chi_square_critical_value : float -> int -> float
        = "chiSquareCriticalValue_wrap"
      val chi_square_table : float -> int -> float
      val close : float -> int array -> int -> int array -> int -> bool
    end
end