expected_roc_utils_calc_coords <-
  structure(c(
    -1, -2, -3, -4, 1, 0.5, 0.10000000000000001, 0, 0,
    0.5, 0.90000000000000002, 1, 0.36283185840707965, 0.5, 0.60973451327433625,
    0.63716814159292035, 0, 36, 64.799999999999997, 72, 41, 20.5,
    4.1000000000000005, 0, 0, 20.5, 36.899999999999999, 41, 72, 36,
    7.2000000000000028, 0, NaN, 0.63716814159292035, 0.63716814159292035,
    0.63716814159292035, 0.36283185840707965, 0.36283185840707965,
    0.36283185840707954, NaN, 1, 0.5, 0.10000000000000001, 0, 0,
    0.5, 0.90000000000000002, 1, 1, 0.5, 0.099999999999999978, 0,
    0, 0.5, 0.89999999999999991, 1, 0.63716814159292035, 0.63716814159292035,
    0.63716814159292035, NaN, 1, 0.5, 0.099999999999999978, 0, 0,
    0.5, 0.90000000000000002, 1, 0.63716814159292035, 0.5, 0.39026548672566375,
    0.36283185840707965, NaN, 0.36283185840707965, 0.36283185840707965,
    0.36283185840707965, 0.63716814159292035, 0.63716814159292035,
    0.63716814159292046, NaN, 0.36283185840707965, 0.36283185840707965,
    0.36283185840707954, NaN, 1, 0.5, 0.10000000000000001, 0, 1,
    1, 1.0000000000000002, NaN, NaN, 1, 1, 1, 1, 0.50462962962962965,
    0.10833333333333334, 0.009259259259259257, 0.009259259259259257,
    0.25231481481481483, 0.8100925925925927, 1
  ), .Dim = c(4L, 26L), .Dimnames = list(NULL, c(
    "threshold", "sensitivity", "specificity",
    "accuracy", "tn", "tp", "fn", "fp", "npv", "ppv", "tpr", "tnr",
    "fpr", "fnr", "fdr", "1-specificity", "1-sensitivity", "1-accuracy",
    "1-npv", "1-ppv", "precision", "recall", "lr_pos", "lr_neg",
    "youden", "closest.topleft"
  )))

expected_roc_utils_calc_coords.percent <-
  structure(c(
    -1, -2, -3, -4, 100, 50, 10, 0, 0, 50, 90, 100, 36.283185840707965,
    50, 60.973451327433622, 63.716814159292035, 0, 36, 64.799999999999997,
    72, 41, 20.5, 4.0999999999999996, 0, 0, 20.5, 36.899999999999999,
    41, 72, 36, 7.2000000000000028, 0, NaN, 63.716814159292035, 63.716814159292042,
    63.716814159292035, 36.283185840707965, 36.283185840707965, 36.283185840707951,
    NaN, 100, 50, 10, 0, 0, 50, 90, 100, 100, 50, 10, 0, 0, 50, 90,
    100, 63.716814159292035, 63.716814159292035, 63.716814159292042,
    NaN, 100, 50, 10, 0, 0, 50, 90, 100, 63.716814159292035, 50,
    39.026548672566378, 36.283185840707965, NaN, 36.283185840707965,
    36.283185840707958, 36.283185840707965, 63.716814159292035, 63.716814159292035,
    63.716814159292049, NaN, 36.283185840707965, 36.283185840707965,
    36.283185840707951, NaN, 100, 50, 10, 0, 1, 1, 1.0000000000000002,
    NaN, NaN, 1, 1, 1, 100, 50.462962962962962, 10.833333333333334,
    0.92592592592592571, 0.92592592592592571, 25.231481481481481,
    81.009259259259267, 100
  ), .Dim = c(4L, 26L), .Dimnames = list(
    NULL, c(
      "threshold", "sensitivity", "specificity", "accuracy",
      "tn", "tp", "fn", "fp", "npv", "ppv", "tpr", "tnr", "fpr",
      "fnr", "fdr", "1-specificity", "1-sensitivity", "1-accuracy",
      "1-npv", "1-ppv", "precision", "recall", "lr_pos", "lr_neg",
      "youden", "closest.topleft"
    )
  ))