Plotting a list of "Numerical" functions

If Off[PredictorFunction::mlincfttp] won't work, perhaps this:

(* holds up evaluation until x is numeric *)
ClearAll[applyN];
applyN[f_][x_?NumericQ] := f[x];

Plot[Evaluate@Through@(applyN /@ predictors)@x, {x, 0, 5}]

enter image description here


You could try with:

Show[Plot[#[x], {x, 0, 5}, PlotStyle -> RandomColor[]] & /@ 
  predictors]

Or if you want the same colorscheme for each plot:

colors = {Blue, Red};
Show[Plot[predictors[[#]][x], {x, 0, 1}, PlotStyle -> colors[[#]]] & /@
   Range@Length[predictors],PlotRange -> All]

enter image description here