stdLift: missing minimum support/conf info now causes a warning inste…

…ad of an error.
mhahsler · May 15, 2020 · dc5460e · dc5460e
1 parent 02814b7
commit dc5460e
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/interestMeasures.R b/R/interestMeasures.R
@@ -596,8 +596,10 @@ setMethod("interestMeasure",  signature(x = "rules"),
     c <- info(rules)$confidence
     s <- info(rules)$support
 
-    if(is.null(c) || is.null(s)) stop("support or confidence info not available in rules. Use uncorrected std_lift instead.")
-    lambda <- pmax(lambda, 4*s/(1+s)^2, s/(supp_A * supp_B), c/supp_B)     
+    if(!is.null(c) && !is.null(s)) 
+      lambda <- pmax(lambda, 4*s/(1+s)^2, s/(supp_A * supp_B), c/supp_B)     
+    else
+      warning("minimum support or confidence not available in info(x). Using uncorrected std_lift instead.")
   }
 
   # lower bound of lift