683 replace/remove is.probability/is.range/is.prob range with applicable additional checkmate assertions

R/Rules-methods.R

@@ -3017,7 +3017,7 @@ setMethod("stopTrial",
       prob_target <- stopping@prob_target
 
       ## checks
-      stopifnot(is.probability(prob_target))
+      assert_probability(prob_target)
       stopifnot(is(Effmodel, "ModelEff"))
       stopifnot(is(Effsamples, "Samples"))
       stopifnot(is.function(TDderive))
@@ -3135,7 +3135,7 @@ setMethod("stopTrial",
       prob_target <- stopping@prob_target
 
       ## checks
-      stopifnot(is.probability(prob_target))
+      assert_probability(prob_target)
       stopifnot(is(Effmodel, "ModelEff"))
 
 

R/fromQuantiles.R

@@ -87,7 +87,7 @@ Quantiles2LogisticNormal <- function(dosegrid,
     identical(length(upper), nDoses),
     all(lower < median),
     all(upper > median),
-    is.probability(level, bounds = FALSE),
+    test_probability(level, bounds = FALSE),
     identical(length(parlower), 5L),
     identical(length(parupper), 5L),
     all(parlower < parstart),
@@ -235,8 +235,8 @@ Quantiles2LogisticNormal <- function(dosegrid,
 ##' @keywords programming
 getMinInfBeta <- function(p, q) {
   stopifnot(
-    is.probability(p, bounds = FALSE),
-    is.probability(q, bounds = FALSE)
+    test_probability(p, bounds = FALSE),
+    test_probability(q, bounds = FALSE)
   )
 
   ret <-
@@ -311,10 +311,10 @@ MinimalInformative <- function(dosegrid,
   nDoses <- length(dosegrid)
   stopifnot(
     !is.unsorted(dosegrid, strictly = TRUE),
-    is.probability(threshmin, bounds = FALSE),
-    is.probability(threshmax, bounds = FALSE),
-    is.probability(probmin, bounds = FALSE),
-    is.probability(probmax, bounds = FALSE)
+    test_probability(threshmin, bounds = FALSE),
+    test_probability(threshmax, bounds = FALSE),
+    test_probability(probmin, bounds = FALSE),
+    test_probability(probmax, bounds = FALSE)
   )
   xmin <- dosegrid[1]
   xmax <- dosegrid[nDoses]

R/helpers.R

@@ -127,47 +127,6 @@ safeInteger <- function(x) {
   as.integer(x)
 }
 
-##' Predicate checking for a probability
-##'
-##' @param x the object being checked
-##' @param bounds whether to include the bounds 0 and 1 (default)
-##' @return Returns \code{TRUE} if \code{x} is a probability
-##'
-##' @keywords internal
-is.probability <- function(x,
-                           bounds = TRUE) {
-  if (bounds) {
-    return(test_numeric(x, lower = 0, upper = 1, any.missing = FALSE))
-  } else {
-    return(test_numeric(x, lower = 0, upper = 1, any.missing = FALSE) && x != 0 && x != 1)
-  }
-}
-
-##' Predicate checking for a numeric range
-##'
-##' @param x the object being checked
-##' @return Returns \code{TRUE} if \code{x} is a numeric range
-##'
-##' @keywords internal
-is.range <- function(x) {
-  return(identical(length(x), 2L) &&
-    x[1] < x[2])
-}
-
-##' Predicate checking for a probability range
-##'
-##' @param x the object being checked
-##' @param bounds whether to include the bounds 0 and 1 (default)
-##' @return Returns \code{TRUE} if \code{x} is a probability range
-##'
-##' @keywords internal
-is.probRange <- function(x,
-                         bounds = TRUE) {
-  return(is.range(x) &&
-    all(sapply(x, is.probability, bounds = bounds)))
-}
-
-
 ##' Shorthand for logit function
 ##'
 ##' @param x the function argument