default to zero if polyroot fails to return any roots

default threshold is 0 because groups are +/- 1
computational-metabolomics · Dec 11, 2019 · babc96e · babc96e
1 parent 1cf78d0
commit babc96e
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/R/PLSDA_class.R b/R/PLSDA_class.R
@@ -148,7 +148,12 @@ prob=function(x,yhat,ytrue)
 
         if (length(t)>1) {
             # multiple cross over points so choose the one closest to 0
-            t=t[which.min(abs(t))]
+            t=t[which.min(abs(t),)]
+        }
+
+        if (length(t)==0 ) {
+            # length is zero. how does this happen? default to 0.
+            t=0
         }
 
         if (is.na(t)) {