tests/testthat/helper-deLongPlacementsCpp-expected.R

In pROC: Display and Analyze ROC Curves

expected.placements <- list(
  "ndka" = list(
    "forward" = structure(list(theta = 0.611957994579946, X = c(
      0.805555555555556,
      0.625, 0.680555555555556, 0.763888888888889, 0.0416666666666667,
      0.277777777777778, 0.513888888888889, 0.930555555555556, 0.972222222222222,
      0.930555555555556, 0.930555555555556, 0.402777777777778, 0.722222222222222,
      0.861111111111111, 0.166666666666667, 0.25, 0.708333333333333,
      0.0138888888888889, 1, 0.861111111111111, 0.430555555555556,
      0.513888888888889, 0.555555555555556, 0.708333333333333, 0.888888888888889,
      0.645833333333333, 0.861111111111111, 0.25, 0.986111111111111,
      0.756944444444444, 0.0416666666666667, 0.340277777777778, 0.861111111111111,
      0.0416666666666667, 0.333333333333333, 0.930555555555556, 0.527777777777778,
      0.722222222222222, 0.958333333333333, 0.513888888888889, 0.763888888888889
    ), Y = c(
      1, 0.829268292682927, 0.878048780487805, 0.707317073170732,
      0.902439024390244, 0.402439024390244, 0.902439024390244, 0.317073170731707,
      0.51219512195122, 0.317073170731707, 0.341463414634146, 0.0731707317073171,
      0.804878048780488, 0.902439024390244, 0.585365853658537, 0.902439024390244,
      0.902439024390244, 0.024390243902439, 0.560975609756098, 0.75609756097561,
      0.75609756097561, 0.317073170731707, 0.975609756097561, 0.878048780487805,
      0.902439024390244, 0.768292682926829, 0.536585365853659, 0.878048780487805,
      0.414634146341463, 0.0975609756097561, 0.878048780487805, 0.902439024390244,
      0.585365853658537, 0.804878048780488, 0.878048780487805, 0.536585365853659,
      0.195121951219512, 0.219512195121951, 0.731707317073171, 0.609756097560976,
      0.0487804878048781, 0.902439024390244, 0.341463414634146, 0.75609756097561,
      0.707317073170732, 0.707317073170732, 0.414634146341463, 0.975609756097561,
      0.341463414634146, 0.585365853658537, 0.804878048780488, 0.707317073170732,
      0.317073170731707, 0.707317073170732, 0.609756097560976, 0.878048780487805,
      0.75609756097561, 0.707317073170732, 0.195121951219512, 0.829268292682927,
      0.585365853658537, 0.548780487804878, 0.0975609756097561, 0.634146341463415,
      0.585365853658537, 0.804878048780488, 0.195121951219512, 0.731707317073171,
      0.463414634146341, 0.219512195121951, 0.902439024390244, 0.51219512195122
    )), .Names = c("theta", "X", "Y")),
    "reverse" = structure(list(theta = 0.388042005420054, X = c(
      0, 0.170731707317073,
      0.121951219512195, 0.292682926829268, 0.0975609756097561, 0.597560975609756,
      0.0975609756097561, 0.682926829268293, 0.48780487804878, 0.682926829268293,
      0.658536585365854, 0.926829268292683, 0.195121951219512, 0.0975609756097561,
      0.414634146341463, 0.0975609756097561, 0.0975609756097561, 0.975609756097561,
      0.439024390243902, 0.24390243902439, 0.24390243902439, 0.682926829268293,
      0.024390243902439, 0.121951219512195, 0.0975609756097561, 0.231707317073171,
      0.463414634146341, 0.121951219512195, 0.585365853658537, 0.902439024390244,
      0.121951219512195, 0.0975609756097561, 0.414634146341463, 0.195121951219512,
      0.121951219512195, 0.463414634146341, 0.804878048780488, 0.780487804878049,
      0.268292682926829, 0.390243902439024, 0.951219512195122, 0.0975609756097561,
      0.658536585365854, 0.24390243902439, 0.292682926829268, 0.292682926829268,
      0.585365853658537, 0.024390243902439, 0.658536585365854, 0.414634146341463,
      0.195121951219512, 0.292682926829268, 0.682926829268293, 0.292682926829268,
      0.390243902439024, 0.121951219512195, 0.24390243902439, 0.292682926829268,
      0.804878048780488, 0.170731707317073, 0.414634146341463, 0.451219512195122,
      0.902439024390244, 0.365853658536585, 0.414634146341463, 0.195121951219512,
      0.804878048780488, 0.268292682926829, 0.536585365853659, 0.780487804878049,
      0.0975609756097561, 0.48780487804878
    ), Y = c(
      0.194444444444444,
      0.375, 0.319444444444444, 0.236111111111111, 0.958333333333333,
      0.722222222222222, 0.486111111111111, 0.0694444444444444, 0.0277777777777778,
      0.0694444444444444, 0.0694444444444444, 0.597222222222222, 0.277777777777778,
      0.138888888888889, 0.833333333333333, 0.75, 0.291666666666667,
      0.986111111111111, 0, 0.138888888888889, 0.569444444444444, 0.486111111111111,
      0.444444444444444, 0.291666666666667, 0.111111111111111, 0.354166666666667,
      0.138888888888889, 0.75, 0.0138888888888889, 0.243055555555556,
      0.958333333333333, 0.659722222222222, 0.138888888888889, 0.958333333333333,
      0.666666666666667, 0.0694444444444444, 0.472222222222222, 0.277777777777778,
      0.0416666666666667, 0.486111111111111, 0.236111111111111
    )), .Names = c(
      "theta",
      "X", "Y"
    ))
  ),
  "wfns" = list(
    "forward" = structure(list(theta = 0.823678861788618, X = c(
      0.8125, 0.652777777777778,
      0.888888888888889, 0.972222222222222, 0.972222222222222, 0.972222222222222,
      0.972222222222222, 0.652777777777778, 0.972222222222222, 0.652777777777778,
      0.256944444444444, 0.652777777777778, 0.972222222222222, 0.888888888888889,
      0.888888888888889, 0.652777777777778, 0.972222222222222, 0.972222222222222,
      0.972222222222222, 0.652777777777778, 0.972222222222222, 0.652777777777778,
      0.972222222222222, 0.652777777777778, 0.888888888888889, 0.972222222222222,
      0.888888888888889, 0.888888888888889, 0.256944444444444, 0.888888888888889,
      0.888888888888889, 0.652777777777778, 0.652777777777778, 0.972222222222222,
      0.972222222222222, 0.652777777777778, 0.652777777777778, 0.972222222222222,
      0.972222222222222, 0.972222222222222, 0.972222222222222
    ), Y = c(
      0.975609756097561,
      0.975609756097561, 0.975609756097561, 0.975609756097561, 0.219512195121951,
      0.975609756097561, 0.804878048780488, 0.804878048780488, 0.975609756097561,
      0.804878048780488, 0.804878048780488, 0.975609756097561, 0.975609756097561,
      0.975609756097561, 0.804878048780488, 0.975609756097561, 0.804878048780488,
      0.975609756097561, 0.975609756097561, 0.646341463414634, 0.536585365853659,
      0.975609756097561, 0.536585365853659, 0.975609756097561, 0.219512195121951,
      0.219512195121951, 0.975609756097561, 0.975609756097561, 0.804878048780488,
      0.536585365853659, 0.975609756097561, 0.975609756097561, 0.804878048780488,
      0.804878048780488, 0.975609756097561, 0.804878048780488, 0.975609756097561,
      0.804878048780488, 0.804878048780488, 0.975609756097561, 0.975609756097561,
      0.975609756097561, 0.975609756097561, 0.804878048780488, 0.975609756097561,
      0.804878048780488, 0.975609756097561, 0.975609756097561, 0.646341463414634,
      0.804878048780488, 0.536585365853659, 0.804878048780488, 0.975609756097561,
      0.536585365853659, 0.975609756097561, 0.975609756097561, 0.219512195121951,
      0.536585365853659, 0.804878048780488, 0.804878048780488, 0.975609756097561,
      0.975609756097561, 0.975609756097561, 0.646341463414634, 0.975609756097561,
      0.804878048780488, 0.804878048780488, 0.536585365853659, 0.536585365853659,
      0.975609756097561, 0.975609756097561, 0.975609756097561
    )), .Names = c(
      "theta",
      "X", "Y"
    )),
    "reverse" = structure(list(theta = 0.176321138211382, X = c(
      0.024390243902439,
      0.024390243902439, 0.024390243902439, 0.024390243902439, 0.780487804878049,
      0.024390243902439, 0.195121951219512, 0.195121951219512, 0.024390243902439,
      0.195121951219512, 0.195121951219512, 0.024390243902439, 0.024390243902439,
      0.024390243902439, 0.195121951219512, 0.024390243902439, 0.195121951219512,
      0.024390243902439, 0.024390243902439, 0.353658536585366, 0.463414634146341,
      0.024390243902439, 0.463414634146341, 0.024390243902439, 0.780487804878049,
      0.780487804878049, 0.024390243902439, 0.024390243902439, 0.195121951219512,
      0.463414634146341, 0.024390243902439, 0.024390243902439, 0.195121951219512,
      0.195121951219512, 0.024390243902439, 0.195121951219512, 0.024390243902439,
      0.195121951219512, 0.195121951219512, 0.024390243902439, 0.024390243902439,
      0.024390243902439, 0.024390243902439, 0.195121951219512, 0.024390243902439,
      0.195121951219512, 0.024390243902439, 0.024390243902439, 0.353658536585366,
      0.195121951219512, 0.463414634146341, 0.195121951219512, 0.024390243902439,
      0.463414634146341, 0.024390243902439, 0.024390243902439, 0.780487804878049,
      0.463414634146341, 0.195121951219512, 0.195121951219512, 0.024390243902439,
      0.024390243902439, 0.024390243902439, 0.353658536585366, 0.024390243902439,
      0.195121951219512, 0.195121951219512, 0.463414634146341, 0.463414634146341,
      0.024390243902439, 0.024390243902439, 0.024390243902439
    ), Y = c(
      0.1875,
      0.347222222222222, 0.111111111111111, 0.0277777777777778, 0.0277777777777778,
      0.0277777777777778, 0.0277777777777778, 0.347222222222222, 0.0277777777777778,
      0.347222222222222, 0.743055555555556, 0.347222222222222, 0.0277777777777778,
      0.111111111111111, 0.111111111111111, 0.347222222222222, 0.0277777777777778,
      0.0277777777777778, 0.0277777777777778, 0.347222222222222, 0.0277777777777778,
      0.347222222222222, 0.0277777777777778, 0.347222222222222, 0.111111111111111,
      0.0277777777777778, 0.111111111111111, 0.111111111111111, 0.743055555555556,
      0.111111111111111, 0.111111111111111, 0.347222222222222, 0.347222222222222,
      0.0277777777777778, 0.0277777777777778, 0.347222222222222, 0.347222222222222,
      0.0277777777777778, 0.0277777777777778, 0.0277777777777778, 0.0277777777777778
    )), .Names = c("theta", "X", "Y"))
  ),
  "s100b" = list(
    "forward" = structure(list(theta = 0.731368563685637, X = c(
      0.5625, 0.4375,
      0.715277777777778, 0.541666666666667, 0.902777777777778, 1, 0.972222222222222,
      0.180555555555556, 0.854166666666667, 0.347222222222222, 0.180555555555556,
      0.888888888888889, 0.875, 0.965277777777778, 1, 0.819444444444444,
      1, 1, 1, 0.180555555555556, 1, 0.833333333333333, 0, 0.347222222222222,
      0.805555555555556, 1, 0.819444444444444, 1, 0.263888888888889,
      0.819444444444444, 0.5625, 0.4375, 0.513888888888889, 0.805555555555556,
      1, 0.611111111111111, 1, 0.840277777777778, 1, 1, 0.902777777777778
    ), Y = c(
      0.707317073170732, 0.670731707317073, 0.804878048780488,
      0.975609756097561, 0.341463414634146, 0.634146341463415, 0.804878048780488,
      0.804878048780488, 0.975609756097561, 0.890243902439024, 0.975609756097561,
      0.853658536585366, 0.768292682926829, 0.939024390243902, 0.634146341463415,
      0.939024390243902, 0.768292682926829, 0.707317073170732, 0.634146341463415,
      0.975609756097561, 0.646341463414634, 0.670731707317073, 0.439024390243902,
      0.853658536585366, 0.292682926829268, 0.341463414634146, 0.646341463414634,
      0.939024390243902, 0.390243902439024, 0.341463414634146, 0.768292682926829,
      0.890243902439024, 0.853658536585366, 0.890243902439024, 0.975609756097561,
      0.707317073170732, 0.804878048780488, 0.670731707317073, 0.658536585365854,
      0.975609756097561, 0.975609756097561, 0.853658536585366, 0.975609756097561,
      0.853658536585366, 0.890243902439024, 0.646341463414634, 0.853658536585366,
      0.890243902439024, 0.451219512195122, 0.768292682926829, 0.51219512195122,
      0.939024390243902, 0.804878048780488, 0.475609756097561, 0.939024390243902,
      0.975609756097561, 0.585365853658537, 0.414634146341463, 0.804878048780488,
      0.658536585365854, 0.890243902439024, 0.670731707317073, 0.804878048780488,
      0.939024390243902, 0.975609756097561, 0.634146341463415, 0.658536585365854,
      0.341463414634146, 0.634146341463415, 0.658536585365854, 0.292682926829268,
      0.329268292682927
    )), .Names = c("theta", "X", "Y")),
    "reverse" = structure(list(theta = 0.268631436314363, X = c(
      0.292682926829268,
      0.329268292682927, 0.195121951219512, 0.024390243902439, 0.658536585365854,
      0.365853658536585, 0.195121951219512, 0.195121951219512, 0.024390243902439,
      0.109756097560976, 0.024390243902439, 0.146341463414634, 0.231707317073171,
      0.0609756097560976, 0.365853658536585, 0.0609756097560976, 0.231707317073171,
      0.292682926829268, 0.365853658536585, 0.024390243902439, 0.353658536585366,
      0.329268292682927, 0.560975609756098, 0.146341463414634, 0.707317073170732,
      0.658536585365854, 0.353658536585366, 0.0609756097560976, 0.609756097560976,
      0.658536585365854, 0.231707317073171, 0.109756097560976, 0.146341463414634,
      0.109756097560976, 0.024390243902439, 0.292682926829268, 0.195121951219512,
      0.329268292682927, 0.341463414634146, 0.024390243902439, 0.024390243902439,
      0.146341463414634, 0.024390243902439, 0.146341463414634, 0.109756097560976,
      0.353658536585366, 0.146341463414634, 0.109756097560976, 0.548780487804878,
      0.231707317073171, 0.48780487804878, 0.0609756097560976, 0.195121951219512,
      0.524390243902439, 0.0609756097560976, 0.024390243902439, 0.414634146341463,
      0.585365853658537, 0.195121951219512, 0.341463414634146, 0.109756097560976,
      0.329268292682927, 0.195121951219512, 0.0609756097560976, 0.024390243902439,
      0.365853658536585, 0.341463414634146, 0.658536585365854, 0.365853658536585,
      0.341463414634146, 0.707317073170732, 0.670731707317073
    ), Y = c(
      0.4375,
      0.5625, 0.284722222222222, 0.458333333333333, 0.0972222222222222,
      0, 0.0277777777777778, 0.819444444444444, 0.145833333333333,
      0.652777777777778, 0.819444444444444, 0.111111111111111, 0.125,
      0.0347222222222222, 0, 0.180555555555556, 0, 0, 0, 0.819444444444444,
      0, 0.166666666666667, 1, 0.652777777777778, 0.194444444444444,
      0, 0.180555555555556, 0, 0.736111111111111, 0.180555555555556,
      0.4375, 0.5625, 0.486111111111111, 0.194444444444444, 0, 0.388888888888889,
      0, 0.159722222222222, 0, 0, 0.0972222222222222
    )), .Names = c(
      "theta",
      "X", "Y"
    ))
  ),
  list
)