Correct error msg with numeric targets; DS-3459 [revdep skip]

Displayr · Aug 3, 2021 · dc7c8f1 · dc7c8f1
1 parent 4c059f9
commit dc7c8f1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/calibrate.R b/R/calibrate.R
@@ -195,7 +195,7 @@ numericTargets <- function(targets, adjustment.variables, numeric.targets, subse
         if (max(numvar) < tgt)
             stop("The target for ", varname, " of ", tgt, " is higher than the maximum value of the variable", (if(is.null(subset)) "" else " (after applying filter/subset)"))
         if (min(numvar) > tgt)
-            stop("The target for ", varname, " of ", tgt, " is lower than the maximum value of the variable", (if(is.null(subset)) "" else " (after applying filter/subset)"))
+            stop("The target for ", varname, " of ", tgt, " is lower than the minimum value of the variable", (if(is.null(subset)) "" else " (after applying filter/subset)"))
     }
     targets
 }