From ccd270b5bc15f6d20bbebd5b23ddf8f2851eab6e Mon Sep 17 00:00:00 2001 From: Wojciekowski Date: Thu, 12 Oct 2023 17:31:28 +0200 Subject: [PATCH] - devtools::check() pleasing --- R/bootstrapping.R | 4 ++-- R/posterior.R | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/R/bootstrapping.R b/R/bootstrapping.R index 99eb507..3f7faf1 100644 --- 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 index 0c85d86..7b673f9 100644 --- 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]