From 8228a83a4dbd420352823a755926c8778baca460 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Mon, 25 Feb 2019 15:34:11 +0100 Subject: Another test case for plotting --- .../mkinfit-plot-for-focus-c-with-sep-true.svg | 143 +++++++++++++++++++++ tests/testthat/test_plots_twa.R | 2 +- 2 files changed, 144 insertions(+), 1 deletion(-) create mode 100644 tests/figs/plotting/mkinfit-plot-for-focus-c-with-sep-true.svg diff --git a/tests/figs/plotting/mkinfit-plot-for-focus-c-with-sep-true.svg b/tests/figs/plotting/mkinfit-plot-for-focus-c-with-sep-true.svg new file mode 100644 index 00000000..2beb762c --- /dev/null +++ b/tests/figs/plotting/mkinfit-plot-for-focus-c-with-sep-true.svg @@ -0,0 +1,143 @@ + + + + + + + + + + + + + + +0 +20 +40 +60 +80 +100 +120 + + + + + + +0 +20 +40 +60 +80 + + + + + + +Time +Observed + + + + + + + + + + + + + + + + + + +parent + + + + + +χ +2 + +error level += +15.8% + + + + + + + + + + + + + + + + + + +0 +20 +40 +60 +80 +100 +120 + + + + + + +-10 +-5 +0 +5 +10 + + + + + + +Time +Residuals + + + + + + + + + + + + + + + + + + + + + diff --git a/tests/testthat/test_plots_twa.R b/tests/testthat/test_plots_twa.R index 0014f738..ff899bc9 100644 --- a/tests/testthat/test_plots_twa.R +++ b/tests/testthat/test_plots_twa.R @@ -52,7 +52,7 @@ context("Plotting") test_that("Plotting mmkin objects is reproducible", { skip_on_cran() - plot_sep_FOCUS_C_SFO <- function() plot_sep(fits[[, "FOCUS_C"]]) + plot_sep_FOCUS_C_SFO <- function() plot_sep(fits[["SFO", "FOCUS_C"]]) mmkin_FOCUS_C <- function() plot(fits[, "FOCUS_C"]) mmkin_SFO <- function() plot(fits["SFO",]) -- cgit v1.2.1