aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat/test_plot.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2020-12-09 14:57:49 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2020-12-09 14:57:49 +0100
commitaf82f9d1b263d43e7f22f0c8cfd1064a8f5a25e3 (patch)
treecf6debce0dea5ac70d72458784c5994e6bcad0d4 /tests/testthat/test_plot.R
parentb3488f035af01627e2c5ea8bee06b7af7202636e (diff)
Fix a test I accidentally broke
Diffstat (limited to 'tests/testthat/test_plot.R')
-rw-r--r--tests/testthat/test_plot.R2
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/testthat/test_plot.R b/tests/testthat/test_plot.R
index ae2841c0..b0bf2c8f 100644
--- a/tests/testthat/test_plot.R
+++ b/tests/testthat/test_plot.R
@@ -9,7 +9,7 @@ test_that("Plotting mkinfit and mmkin objects is reproducible", {
mkinparplot_FOCUS_C_SFO <- function() mkinparplot(fits[["SFO", "FOCUS_C"]])
mkinerrplot_FOCUS_C_SFO <- function() mkinerrplot(fits[["SFO", "FOCUS_C"]])
mmkin_FOCUS_C <- function() plot(fits[, "FOCUS_C"])
- mmkin_SFO <- function() plot(fits["SFO",])
+ mmkin_SFO <- function() plot(fits["SFO", c("FOCUS_C", "FOCUS_D")])
fit_D_obs_eigen <- suppressWarnings(mkinfit(SFO_SFO, FOCUS_2006_D, error_model = "obs", quiet = TRUE))
fit_C_tc <- mkinfit("SFO", FOCUS_2006_C, error_model = "tc", quiet = TRUE)
plot_errmod_fit_C_tc <- function() plot_err(fit_C_tc)

Contact - Imprint