let positive_predictive_value cm = 
  float cm.tp /. float (cm.tp + cm.fp)