default to zero if polyroot fails to return any roots

grlloyd · grlloyd · commit 097545aa061c · 2019-12-11T14:16:27.000Z
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 ) {

Original file line number	Diff line number	Diff line change
`@@ -148,7 +148,7 @@ prob=function(x,yhat,ytrue)`
`148`	`148`
`149`	`149`	`if (length(t)>1) {`
`150`	`150`	`# multiple cross over points so choose the one closest to 0`
`151`		`- t=t[which.min(abs(t),)]`
	`151`	`+ t=t[which.min(abs(t))]`
`152`	`152`	`}`
`153`	`153`
`154`	`154`	`if (length(t)==0 ) {`