default to zero if polyroot fails to return any roots

computational-metabolomics · Dec 11, 2019 · 097545a · 097545a
1 parent babc96e
commit 097545a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/PLSDA_class.R b/R/PLSDA_class.R
@@ -148,7 +148,7 @@ 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 ) {