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