Commit 6d28e4a9 authored by qlobbe's avatar qlobbe

change the logs output

parent 7b275ee2
Pipeline #867 failed with stage
...@@ -381,7 +381,7 @@ seaLevelMatching proximity beta minBranch frequency thr step depth elevation fra ...@@ -381,7 +381,7 @@ seaLevelMatching proximity beta minBranch frequency thr step depth elevation fra
else else
-- | break all the possible branches at the current seaLvl level -- | break all the possible branches at the current seaLvl level
let quality = toPhyloQuality beta frequency (map fst branches) let quality = toPhyloQuality beta frequency (map fst branches)
branches' = trace ("↑ level = " <> printf "%.2f" thr <> " F(β) = " <> printf "%.5f" quality <> " branches = " <> show(length branches) <> " ↴") branches' = trace ("↑ level = " <> printf "%.3f" thr <> " F(β) = " <> printf "%.5f" quality <> " branches = " <> show(length branches) <> " ↴")
$ breakBranches proximity beta frequency minBranch thr depth elevation frame docs coocs periods $ breakBranches proximity beta frequency minBranch thr depth elevation frame docs coocs periods
[] (head' "seaLevelMatching" branches) (tail' "seaLevelMatching" branches) [] (head' "seaLevelMatching" branches) (tail' "seaLevelMatching" branches)
frequency' = reduceFrequency frequency (map fst branches') frequency' = reduceFrequency frequency (map fst branches')
......
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