Biocaml 0.4-dev : Biocaml_histogram.increment

let increment ?(delt=1.0) hist x =

 let hist = copy hist in

 match find_bin_index hist x with

 | None -> hist

 | Some i ->

  hist.counts.(i) <- hist.counts.(i) +. delt;

  hist