diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2019-10-21 18:52:24 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2019-10-21 18:54:37 +0200 |
| commit | e09f726134ee273b6b191c1ec6465e6f701b082b (patch) | |
| tree | aabc6bec231fb9dd085deef57a030e41ec398bf4 /tests/testthat/test_error_models.R | |
| parent | bea054418c5310103252f5d243b2d18fcbf7b11f (diff) | |
Improve some plotting routines, more tests
Static documentation rebuilt by pkgdown
Diffstat (limited to 'tests/testthat/test_error_models.R')
| -rw-r--r-- | tests/testthat/test_error_models.R | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/testthat/test_error_models.R b/tests/testthat/test_error_models.R index ba40bae6..40c1e6e8 100644 --- a/tests/testthat/test_error_models.R +++ b/tests/testthat/test_error_models.R @@ -23,6 +23,9 @@ test_that("Error model 'obs' works", { 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) + + vdiffr::expect_doppelganger("plot_errmod with SFO_lin_a", plot_errmod_fit_obs_1) }) test_that("Error model 'tc' works", { |