Removing non-numerical points.

ROCFunctions.m

@@ -364,7 +364,7 @@ computes ROC associations (for ROCPlot)."
   xFuncName_String, yFuncName_String,
   parValsArg : (Automatic | {_?NumericQ..}),
   aROCs : {_?ROCAssociationQ..}, opts : OptionsPattern[]] :=
-    Block[{xFunc, yFunc, psize, rocc, pt, pc, pj, rocpcf, points, parVals=parValsArg},
+    Block[{xFunc, yFunc, psize, rocc, pt, pc, pj, rocpcf, points, parVals=parValsArg, pred},
 
       psize = OptionValue["ROCPointSize"];
       rocc = OptionValue["ROCColor"];
@@ -382,6 +382,10 @@ computes ROC associations (for ROCPlot)."
         Return[$Failed]
       ];
 
+      pred = Map[VectorQ[#,NumericQ]&, points ];
+      points = Pick[points, pred];
+      parVals = Pick[parVals, pred];
+
       Graphics[{
         If[pj, {Lighter[rocc],Line[points]},{}],
 
@@ -413,7 +417,7 @@ computes ROC associations (for ROCPlot)."
 
         If[ pc,
           MapThread[
-            Text[#2, Through[{xFunc,yFunc}[#1]], {-1, 2}] &, {aROCs, parVals}],
+            Text[#2, #1, {-1, 2}] &, {points, parVals}],
           {}
         ]},