let prediction_values tp tn fp fn =
  let tp = Float.of_int tp in
  let tn = Float.of_int tn in
  let fp = Float.of_int fp in
  let fn = Float.of_int fn in
  let sensitivity = tp /. (tp +. fn) in
  let specificity = tn /. (fp +. tn) in
  let pos_prediction_accuracy = tp /. (tp +. fp) in
  let neg_prediction_accuracy = tn /. (tn +. fn) in
  sensitivity, specificity, pos_prediction_accuracy, neg_prediction_accuracy