let
negative_predictive_value cm =
float cm.tn /. float (cm.tn + cm.fn)