Multinomial: fix text output

5ce44fd1 · Philippe Veber · fde4e6e7 · 5ce44fd1
Commit 5ce44fd1 authored Jun 26, 2019 by Philippe Veber
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lib/multinomial.ml lib/multinomial.ml +1 -1

No files found.
--- a/lib/multinomial.ml
+++ b/lib/multinomial.ml
@@ -74,7 +74,7 @@ let%pworkflow multinomial_ocaml_implementation ~meth ~(tree_sc:_ pworkflow) ~(fa
  let res = List.init n ~f:site in
  let res_lines =
    List.mapi res ~f:(fun i (lr, pval) ->
-        sprintf "%d\t%f\t%f" i (1. -. pval) lr
+        sprintf "%d\t%f\t%f" (i + 1) (1. -. pval) lr
      )
  in
  let header = "Sites\t1MinusLRT\tLikelihoodRatio" in