From cb03bf1fb1e6326f06029969663f3399af96b05d Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Sat, 26 Oct 2019 22:38:11 +0200 Subject: Address some check and test failures --- R/confint.mkinfit.R | 2 ++ R/parms.mkinfit.R | 1 - tests/testthat/setup_script.R | 4 ++-- tests/testthat/test_confidence.R | 6 +++--- 4 files changed, 7 insertions(+), 6 deletions(-) diff --git a/R/confint.mkinfit.R b/R/confint.mkinfit.R index 887adc9f..58918321 100644 --- a/R/confint.mkinfit.R +++ b/R/confint.mkinfit.R @@ -21,6 +21,8 @@ #' @param quiet Should we suppress messages? #' @return A matrix with columns giving lower and upper confidence limits for #' each parameter. +#' @param \dots Not used +#' @importFrom stats qnorm #' @references Pawitan Y (2013) In all likelihood - Statistical modelling and #' inference using likelihood. Clarendon Press, Oxford. #' @examples diff --git a/R/parms.mkinfit.R b/R/parms.mkinfit.R index 250d9d1f..8f9b4136 100644 --- a/R/parms.mkinfit.R +++ b/R/parms.mkinfit.R @@ -5,7 +5,6 @@ #' considering the error structure that was assumed for the fit. #' #' @param object A fitted model object -#' @param complete Unused argument for compatibility with the generic coef function from base R #' @return A numeric vector of fitted model parameters #' @export parms <- function(object, ...) diff --git a/tests/testthat/setup_script.R b/tests/testthat/setup_script.R index c3fb4f06..cfa978fc 100644 --- a/tests/testthat/setup_script.R +++ b/tests/testthat/setup_script.R @@ -69,5 +69,5 @@ fit_tc_1 <- mkinfit(m_synth_SFO_lin, SFO_lin_a, error_model = "tc", quiet = TRUE f_tc_2 <- mkinfit(m_synth_DFOP_par, DFOP_par_c, error_model = "tc", error_model_algorithm = "direct", quiet = TRUE) -f_tc_2_ntf <- mkinfit(m_synth_DFOP_par, DFOP_par_c, error_model = "tc", - transform_fractions = FALSE, error_model_algorithm = "direct", quiet = TRUE) +#f_tc_2_ntf <- mkinfit(m_synth_DFOP_par, DFOP_par_c, error_model = "tc", +# transform_fractions = FALSE, error_model_algorithm = "direct", quiet = TRUE) diff --git a/tests/testthat/test_confidence.R b/tests/testthat/test_confidence.R index 68ff4a98..13652436 100644 --- a/tests/testthat/test_confidence.R +++ b/tests/testthat/test_confidence.R @@ -80,9 +80,9 @@ test_that("Quadratic confidence intervals for rate constants are comparable to c se_nls_2[c("lrc1", "lrc2")] / se_mkin_2[c("log_k1", "log_k2")], rep(sqrt(nrow(FOCUS_2006_C) / (nrow(FOCUS_2006_C) - 4)), 2), tolerance = 0.03) -} +}) -test_that("Likelihood profile based confidence intervals work", { +#test_that("Likelihood profile based confidence intervals work", { # f <- mkinfit("SFO", FOCUS_2006_C, quiet = TRUE) # f <- fits[["SFO", "FOCUS_C"]] @@ -120,4 +120,4 @@ test_that("Likelihood profile based confidence intervals work", { # ci_tc_2[, 1] # ci_tc_2_maxLik[, 1] -}) +#}) -- cgit v1.2.1