Functor Reins.DugProfile.Make

module Make: 
functor (DS : Reins.DugADT.S) -> sig .. end
Parameters:
DS : Reins.DugADT.S

type t = private {
   gen_cdf :((unit, unit) DS.generator * float) list;
   mut_cdf :((unit, unit) DS.mutator * float) list;
   obs_cdf :((unit, unit) DS.observer * float) list;
   gen_ratio :float;
   obs_mut_ratio :float;
   mortality :float;
   pmf :float;
   pof :float;
}
val random_op : ('a * float) list -> 'a
val to_string : t -> string
val profile : (('a, 'b) DS.generator, ('a, 'b) DS.mutator, ('a, 'b) DS.observer)
Reins.Dug.t -> t