diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2019-10-26 22:38:11 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2019-10-26 22:38:11 +0200 |
| commit | cb03bf1fb1e6326f06029969663f3399af96b05d (patch) | |
| tree | 98bc046e8a0e3307d2d1dc284b1f5326a23343b3 /tests/testthat/test_confidence.R | |
| parent | 7b7729694363515007193d1c3e29e9b76271abb3 (diff) | |
Address some check and test failures
Diffstat (limited to 'tests/testthat/test_confidence.R')
| -rw-r--r-- | tests/testthat/test_confidence.R | 6 |
1 files changed, 3 insertions, 3 deletions
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] -}) +#}) |