Commit bfb4b028 authored by Carine Rey's avatar Carine Rey
Browse files

use only more distant profiles

parent 226fe5de
......@@ -52,8 +52,8 @@ let profile_l_of_splitted_profile ~nb_cat ~nb_sites profile_fn =
let profile_f = input profile_fn in
let prefix = Filename.chop_extension (Filename.basename profile_fn) in
let dist_bins = match nb_cat with
| 3 -> "[0.01,0.4],[0.4,0.6],[0.6,2]"
| 1 -> "[0.01,2]"
| 3 -> "[0.01,0.4],[0.4,0.6],[0.6,0.7]" (*0 <=JSD<=ln(2) ~= 0.693... *)
| 1 -> "[0.01,0.7]"
| _ -> failwith {| nbcat must be 1 or 3 |}
in
let splitted_profile = split_profile ~nb_sites ~dist_bins profile_f in
......@@ -62,7 +62,8 @@ let profile_l_of_splitted_profile ~nb_cat ~nb_sites profile_fn =
let p0 = splitted_profile / selector ["profile_0.tsv"] in
let p1 = splitted_profile / selector ["profile_1.tsv"] in
let p2 = splitted_profile / selector ["profile_2.tsv"] in
{profile_c=cat_file [p0;p1;p2] ; profile_n=prefix ^ "_3categories" ; profile_f};
(*{profile_c=cat_file [p0;p1;p2] ; profile_n=prefix ^ "_3categories" ; profile_f} *)
{profile_c=p2 ; profile_n=prefix ^ "_1categorie_max_dist" ; profile_f};
)
| 1 -> (let p0 = splitted_profile / selector ["profile_0.tsv"] in
{profile_c=p0; profile_n=prefix ; profile_f})
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment