From f7f92c29908550af82ac20041621c5b4404210d2 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Mon, 25 Feb 2019 17:33:49 +0100 Subject: Shorten path to test plot --- .../plot-nafta-analysis.svg | 450 +++++++++++++++++++++ .../plot-nafta-analysis-sop-appendix-d.svg | 450 --------------------- tests/testthat/test_nafta.R | 4 +- 3 files changed, 452 insertions(+), 452 deletions(-) create mode 100644 tests/figs/evaluations-according-to-2015-nafta-guidance/plot-nafta-analysis.svg delete mode 100644 tests/figs/evaluations-according-to-the-nafta-guidance-from-2015/plot-nafta-analysis-sop-appendix-d.svg (limited to 'tests') diff --git a/tests/figs/evaluations-according-to-2015-nafta-guidance/plot-nafta-analysis.svg b/tests/figs/evaluations-according-to-2015-nafta-guidance/plot-nafta-analysis.svg new file mode 100644 index 00000000..58f57e93 --- /dev/null +++ b/tests/figs/evaluations-according-to-2015-nafta-guidance/plot-nafta-analysis.svg @@ -0,0 +1,450 @@ + + + + + + + + + + + +0 +100 +200 +300 + + + + + + + +0 +20 +40 +60 +80 +100 + + + + + + +Time +Observed + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +MRID 555555 +SFO + +χ +2 + +error level += +9.04% + + + + + + + + + + + + + + + + +0 +100 +200 +300 +400 + + + + + + +-20 +-10 +0 +10 +20 + + + + + + +Time +Residual + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +SFO residuals + + + + + + + + + + + + + + + +0 +100 +200 +300 + + + + + + + +0 +20 +40 +60 +80 +100 + + + + + + +Time +Observed + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +MRID 555555 +IORE + +χ +2 + +error level += +5.65% + + + + + + + + + + + + + + + + +0 +100 +200 +300 +400 + + + + + + +-20 +-10 +0 +10 +20 + + + + + + +Time +Residual + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +IORE residuals + + + + + + + + + + + + + + + +0 +100 +200 +300 + + + + + + + +0 +20 +40 +60 +80 +100 + + + + + + +Time +Observed + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +MRID 555555 +DFOP + +χ +2 + +error level += +5.25% + + + + + + + + + + + + + + + + +0 +100 +200 +300 +400 + + + + +-10 +0 +10 + + + + + + +Time +Residual + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +DFOP residuals + + + + + + diff --git a/tests/figs/evaluations-according-to-the-nafta-guidance-from-2015/plot-nafta-analysis-sop-appendix-d.svg b/tests/figs/evaluations-according-to-the-nafta-guidance-from-2015/plot-nafta-analysis-sop-appendix-d.svg deleted file mode 100644 index 58f57e93..00000000 --- a/tests/figs/evaluations-according-to-the-nafta-guidance-from-2015/plot-nafta-analysis-sop-appendix-d.svg +++ /dev/null @@ -1,450 +0,0 @@ - - - - - - - - - - - -0 -100 -200 -300 - - - - - - - -0 -20 -40 -60 -80 -100 - - - - - - -Time -Observed - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -MRID 555555 -SFO - -χ -2 - -error level -= -9.04% - - - - - - - - - - - - - - - - -0 -100 -200 -300 -400 - - - - - - --20 --10 -0 -10 -20 - - - - - - -Time -Residual - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -SFO residuals - - - - - - - - - - - - - - - -0 -100 -200 -300 - - - - - - - -0 -20 -40 -60 -80 -100 - - - - - - -Time -Observed - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -MRID 555555 -IORE - -χ -2 - -error level -= -5.65% - - - - - - - - - - - - - - - - -0 -100 -200 -300 -400 - - - - - - --20 --10 -0 -10 -20 - - - - - - -Time -Residual - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -IORE residuals - - - - - - - - - - - - - - - -0 -100 -200 -300 - - - - - - - -0 -20 -40 -60 -80 -100 - - - - - - -Time -Observed - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -MRID 555555 -DFOP - -χ -2 - -error level -= -5.25% - - - - - - - - - - - - - - - - -0 -100 -200 -300 -400 - - - - --10 -0 -10 - - - - - - -Time -Residual - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -DFOP residuals - - - - - - diff --git a/tests/testthat/test_nafta.R b/tests/testthat/test_nafta.R index 3615c278..10de3ce0 100644 --- a/tests/testthat/test_nafta.R +++ b/tests/testthat/test_nafta.R @@ -16,7 +16,7 @@ # You should have received a copy of the GNU General Public License along with # this program. If not, see -context("Evaluations according to the NAFTA guidance from 2015") +context("Evaluations according to 2015 NAFTA guidance") test_that("Data for more than one compound are rejected", expect_error(nafta(FOCUS_2006_D))) @@ -40,5 +40,5 @@ test_that("Test data from Appendix D are correctly evaluated", { expect_known_output(print(res), "print_nafta_analysis.txt") plot_nafta <- function() plot(res) - vdiffr::expect_doppelganger("Plot NAFTA analysis SOP Appendix D", plot_nafta) + vdiffr::expect_doppelganger("Plot NAFTA analysis", plot_nafta) }) -- cgit v1.2.1