aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--R/confint.mkinfit.R2
-rw-r--r--R/parms.mkinfit.R1
-rw-r--r--tests/testthat/setup_script.R4
-rw-r--r--tests/testthat/test_confidence.R6
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]
-})
+#})

Contact - Imprint