diff --git a/src/Views/LinePlot.elm b/src/Views/LinePlot.elm index 66aba0ce6a0b6e5456b8657514663719ca6a9b4e..2c15aa743f0d105b1ad58af85234f4e4975869a3 100644 --- a/src/Views/LinePlot.elm +++ b/src/Views/LinePlot.elm @@ -276,6 +276,21 @@ view global model = ) ] ) + + rate = annotation + |> Maybe.map + (Tuple.first + >> .selection + >> .y + ) + |> Maybe.withDefault [] + |> List.map + (\{ groupLabel, value } -> + value + ) + |> List.foldl (\x y -> x / y) 1.0 + |> String.fromFloat + |> String.left 5 in Html.div [ Html.Attributes.style "margin" "0" @@ -293,6 +308,8 @@ view global model = [ Html.text year , Html.br [] [] , Html.div [] values + , Html.br [] [] + , Html.text ("ratio: " ++ rate) ]