aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat/test_error_models.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2019-10-22 10:13:16 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2019-10-22 10:13:16 +0200
commitf8d45402477a588f773f6fd300f3d4e914648773 (patch)
treeb4191dab6d7249150933e322349501d90dc05ac3 /tests/testthat/test_error_models.R
parent1c8fae503c6c18764d62bc98236111168ac83529 (diff)
Improved visual testing
Diffstat (limited to 'tests/testthat/test_error_models.R')
-rw-r--r--tests/testthat/test_error_models.R6
1 files changed, 0 insertions, 6 deletions
diff --git a/tests/testthat/test_error_models.R b/tests/testthat/test_error_models.R
index d8263c95..12a8b7e5 100644
--- a/tests/testthat/test_error_models.R
+++ b/tests/testthat/test_error_models.R
@@ -20,18 +20,12 @@ context("Error model fitting")
test_that("Error model 'obs' works", {
skip_on_cran()
- fit_obs_1 <- mkinfit(m_synth_SFO_lin, SFO_lin_a, error_model = "obs", quiet = TRUE)
parms_2 <- round(fit_obs_1$bparms.optim, c(1, 4, 4, 4, 4, 4))
expect_equivalent(parms_2, c(102.1, 0.7389, 0.2982, 0.0203, 0.7677, 0.7246))
- plot_errmod_fit_obs_1 <- function() plot_err(fit_obs_1, sep_obs = FALSE)
-
- skip_on_travis() # This fails on Travis for an unknown reason
- vdiffr::expect_doppelganger("plot_errmod with SFO_lin_a", plot_errmod_fit_obs_1)
})
test_that("Error model 'tc' works", {
skip_on_cran()
- fit_tc_1 <- mkinfit(m_synth_SFO_lin, SFO_lin_a, error_model = "tc", quiet = TRUE)
parms_3 <- round(fit_tc_1$bparms.optim, c(1, 4, 4, 4, 4, 4))
expect_equivalent(parms_3, c(102.1, 0.7393, 0.2992, 0.0202, 0.7687, 0.7229))
})

Contact - Imprint