From af82f9d1b263d43e7f22f0c8cfd1064a8f5a25e3 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Wed, 9 Dec 2020 14:57:49 +0100 Subject: Fix a test I accidentally broke --- tests/testthat/test_plot.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'tests') 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) -- cgit v1.2.1