add a descr to prepare (to know which input trees are unrooted)

lib/pipeline.ml

@@ -37,7 +37,7 @@ let parse_input_data indir =
         let dataset = {Dataset.model_prefix = tree_prefix;
                        is_real = true;
                        tree_prefix = dataset_prefix;
-                       dataset = Ready_dataset.of_raw raw_dataset
+                       dataset = Ready_dataset.of_raw ~descr:("real_data." ^ tree_prefix) raw_dataset
                       } in
         [dataset]
       else
@@ -121,7 +121,7 @@ let derive_from_model ~model ~input_tree ~tree_dataset ~tree_prefix ~profile ~pr
 let derive_from_tree ~tree_dir ~tree ~profile ~preview ~use_concat ~ns ~no_Ne ~no_HaPC ~ne_test =
   let tree_prefix = Filename.chop_extension tree in
   let input_tree = input (Filename.concat tree_dir tree) in
-  let tree_dataset = Tree_dataset.prepare ~descr:tree_prefix input_tree in
+  let tree_dataset = Tree_dataset.prepare ~descr:("simulated_data." ^ tree_prefix) input_tree in
   let models = Convergence_hypothesis.[
       [
         H0_NeG1  ;

lib/ready_dataset.ml

@@ -14,11 +14,11 @@ type t = {
   faa: aminoacid_fasta workflow ;
 }
 
-let of_raw (raw_dataset : Raw_dataset.t) =
+let of_raw ?(descr="") (raw_dataset : Raw_dataset.t) =
   let input_tree = raw_dataset.input_tree in
   let fna = raw_dataset.fna in
   let fna_infos = raw_dataset.fna_infos in
-  let tree_dataset = Tree_dataset.prepare input_tree in
+  let tree_dataset = Tree_dataset.prepare ~descr input_tree in
   let faa = Bppsuite.fna2faa ~fna in
   { input_tree; tree_dataset ; fna; faa; fna_infos}