- devtools::check() pleasing

Boehringer-Ingelheim · Oct 12, 2023 · ccd270b · ccd270b
1 parent c375ffe
commit ccd270b
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/bootstrapping.R b/R/bootstrapping.R
@@ -45,7 +45,7 @@ getBootsrapBands <- function (
         bnds  = DoseFinding::defBnds(
           mD = max(model_fits[[1]]$dose_levels))[[model]])
 
-      preds <- predict(fit, doseSeq = dose_seq, predType = "ls-means")
+      preds <- stats::predict(fit, doseSeq = dose_seq, predType = "ls-means")
       attr(preds, "gAIC") <- DoseFinding::gAIC(fit)
 
       return (preds)
@@ -74,7 +74,7 @@ getBootsrapBands <- function (
   sort_indx <- order(rep(seq_along(model_names), length(dose_seq)))
   quant_mat <- t(apply(X      = preds[sort_indx, ],
                        MARGIN = 1,
-                       FUN    = quantile,
+                       FUN    = stats::quantile,
                        probs  = quantile_probs))
 
   cr_bounds_data <- cbind(

diff --git a/R/posterior.R b/R/posterior.R
@@ -40,7 +40,7 @@ getPosteriorI <- function(
 
   if (is.null(mu_hat) && is.null(sd_hat)) {
 
-    anova_res <- lm(data_i$response ~ factor(data_i$dose) - 1)
+    anova_res <- stats::lm(data_i$response ~ factor(data_i$dose) - 1)
     mu_hat    <- summary(anova_res)$coefficients[, 1]
     sd_hat    <- summary(anova_res)$coefficients[, 2]