aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat
diff options
context:
space:
mode:
Diffstat (limited to 'tests/testthat')
-rw-r--r--tests/testthat/print_sfo_saem_1.txt (renamed from tests/testthat/print_sfo_saemix_1.txt)2
-rw-r--r--tests/testthat/test_mixed.R2
-rw-r--r--tests/testthat/test_plot.R6
3 files changed, 4 insertions, 6 deletions
diff --git a/tests/testthat/print_sfo_saemix_1.txt b/tests/testthat/print_sfo_saem_1.txt
index 9dd4f175..d341e9e7 100644
--- a/tests/testthat/print_sfo_saemix_1.txt
+++ b/tests/testthat/print_sfo_saem_1.txt
@@ -6,8 +6,6 @@ Data:
264 observations of 1 variable(s) grouped in 15 datasets
Likelihood computed by importance sampling
-
-LL by is "-653.97 (df=6)"
AIC BIC logLik
1320 1324 -654
diff --git a/tests/testthat/test_mixed.R b/tests/testthat/test_mixed.R
index 6fc6c2f0..7798be8a 100644
--- a/tests/testthat/test_mixed.R
+++ b/tests/testthat/test_mixed.R
@@ -88,7 +88,7 @@ test_that("Print methods work", {
expect_known_output(print(fits, digits = 2), "print_mmkin_parent.txt")
expect_known_output(print(mmkin_biphasic_mixed, digits = 2), "print_mmkin_biphasic_mixed.txt")
expect_known_output(print(nlme_biphasic, digits = 1), "print_nlme_biphasic.txt")
- expect_known_output(print(sfo_saemix_1, digits = 1), "print_sfo_saemix_1.txt")
+ expect_known_output(print(sfo_saem_1, digits = 1), "print_sfo_saem_1.txt")
})
test_that("nlme results are reproducible", {
diff --git a/tests/testthat/test_plot.R b/tests/testthat/test_plot.R
index b0bf2c8f..22f4307f 100644
--- a/tests/testthat/test_plot.R
+++ b/tests/testthat/test_plot.R
@@ -35,14 +35,14 @@ test_that("Plotting mkinfit and mmkin objects is reproducible", {
plot_biphasic_mmkin <- function() plot(f_uba_dfop_sfo_mixed)
vdiffr::expect_doppelganger("mixed model fit for mmkin object", plot_biphasic_mmkin)
- plot_biphasic_nlme <- function() plot(dfop_nlme_1)
- vdiffr::expect_doppelganger("mixed model fit for nlme object", plot_biphasic_nlme)
-
plot_biphasic_saem_s <- function() plot(f_uba_dfop_sfo_saem)
vdiffr::expect_doppelganger("mixed model fit for saem object with saemix transformations", plot_biphasic_saem_s)
skip_on_travis()
+ plot_biphasic_nlme <- function() plot(dfop_nlme_1)
+ vdiffr::expect_doppelganger("mixed model fit for nlme object", plot_biphasic_nlme)
+
#plot_biphasic_mmkin <- function() plot(mixed(mmkin_biphasic))
# Biphasic fits with lots of data and fits have lots of potential for differences
plot_biphasic_nlme <- function() plot(nlme_biphasic)

Contact - Imprint