minor bug fixes

Boehringer-Ingelheim · Nov 30, 2023 · 922ac4e · 922ac4e
1 parent 94d7b16
commit 922ac4e
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/R/modelling.R b/R/modelling.R
@@ -115,7 +115,7 @@ getModelFitOpt <- function (
               ub     <- c(Inf, Inf, 1.5 * max(dose_levels), 0.5 * max(dose_levels))
               expr_i <- quote(sum((post_combs$means[i, ] - (theta[1] + theta[2] / (1 + exp((theta[3] - dose_levels) / theta[4]))))^2 / (post_combs$vars[i, ])))},
             {
-              stop (GENERAL$ERROR$MODEL_OPTIONS)})
+              stop ("error")})
 
     simple_fit <- getModelFitSimple(
       model       = model,
@@ -225,7 +225,7 @@ predictModelFit <- function (
       model_fit$coeffs["eMax"],
       model_fit$coeffs["ed50"],
       model_fit$coeffs["delta"])},
-    {stop(GENERAL$ERROR$MODEL_OPTIONS)})
+    {stop("error")})
 
   return (pred_vals)
 

diff --git a/R/posterior.R b/R/posterior.R
@@ -125,9 +125,9 @@ getPosteriorI <- function(
   checkmate::check_data_frame(data_i, null.ok = TRUE)
   checkmate::check_list(prior_list, names = "named", any.missing = FALSE)
   checkmate::check_vector(mu_hat, any.missing = FALSE, null.ok = TRUE)
-  checkmate::check_double(mu_hat, null.ok = TRUE, lower = -Inf, upper = Inf, len = length(prior_list))
+  checkmate::check_double(mu_hat, null.ok = TRUE, lower = -Inf, upper = Inf)
   checkmate::check_vector(sd_hat, any.missing = FALSE, null.ok = TRUE)
-  checkmate::check_double(sd_hat, null.ok = TRUE, lower = 0, upper = Inf, len = length(prior_list))
+  checkmate::check_double(sd_hat, null.ok = TRUE, lower = 0, upper = Inf)
 
   if (is.null(mu_hat) && is.null(sd_hat)) {
     checkmate::check_data_frame(data_i, null.ok = FALSE)