Commit 8e3ed83b authored by Carine Rey's avatar Carine Rey
Browse files

rm warning

parent f23e90fe
......@@ -59,8 +59,8 @@ let profile_l_of_splitted_profile ~nb_cat ~nb_sites profile_fn =
let splitted_profile = split_profile ~nb_sites ~dist_bins profile_f in
match nb_cat with
| 3 -> (
let p0 = splitted_profile / selector ["profile_0.tsv"] in
let p1 = splitted_profile / selector ["profile_1.tsv"] in
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=p2 ; profile_n=prefix ^ "_1categorie_max_dist" ; 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