From f8d45402477a588f773f6fd300f3d4e914648773 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Tue, 22 Oct 2019 10:13:16 +0200 Subject: Improved visual testing --- tests/testthat/test_error_models.R | 6 ------ 1 file changed, 6 deletions(-) (limited to 'tests/testthat/test_error_models.R') 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)) }) -- cgit v1.2.1