type 'a t = {samples : float array; |
n : int; |
max_length : int; |
}
val empty : 'a tval from_dist : ?n:int -> float Dist.dist -> 'a tval add_sample : 'a t -> float -> 'b tval to_cdf_arr : 'a t -> float array * float arrayval to_pdf_arr : 'a t -> float array * float Core.Array.tval to_cdf : 'a t -> Core.Float.t -> Core.Float.tval to_pdf : 'a t -> Core.Float.t -> floatval values : 'a t -> float Core.Array.tval print : 'a t -> Base.unit