From 7035cde3a53781721fe15a8893fdf328c789bdd2 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Mon, 7 Mar 2022 12:03:40 +0100 Subject: Remove nlmixr interface for release of mkin 1.1.0 I am postponing my attempts to get the nlmixr interface to CRAN, given some problems with nlmixr using R-devel under Windows, see https://github.com/nlmixrdevelopment/nlmixr/issues/596 and https://github.com/r-hub/rhub/issues/512, which is fixed by the removal of nlmixr from the testsuite. For the tests to be more platform independent, the biphasic mixed effects models test dataset was defined in a way that fitting should be more robust (less ill-defined). --- tests/testthat/test_mixed.R | 17 +---------------- 1 file changed, 1 insertion(+), 16 deletions(-) (limited to 'tests/testthat/test_mixed.R') diff --git a/tests/testthat/test_mixed.R b/tests/testthat/test_mixed.R index ae8743af..6fb06656 100644 --- a/tests/testthat/test_mixed.R +++ b/tests/testthat/test_mixed.R @@ -57,7 +57,7 @@ test_that("saemix results are reproducible for biphasic fits", { # k2 is not fitted well ci_dfop_sfo_s_m <- summary(saem_biphasic_m)$confint_back expect_true(all(ci_dfop_sfo_s_m[no_k2, "lower"] < dfop_sfo_pop[no_k2])) - expect_true(all(ci_dfop_sfo_s_m[, "upper"] > dfop_sfo_pop)) + expect_true(all(ci_dfop_sfo_s_m[no_k1, "upper"] > dfop_sfo_pop[no_k1])) # I tried to only do few iterations in routine tests as this is so slow # but then deSolve fails at some point (presumably at the switch between @@ -73,18 +73,3 @@ test_that("saemix results are reproducible for biphasic fits", { expect_true(all(ci_dfop_sfo_s_d[no_k2, "lower"] < dfop_sfo_pop[no_k2])) expect_true(all(ci_dfop_sfo_s_d[no_k1, "upper"] > dfop_sfo_pop[no_k1])) }) - -test_that("nlmixr results are reproducible for biphasic fits", { - - test_summary <- summary(nlmixr_saem_biphasic) - test_summary$saemixversion <- "Dummy 0.0 for testing" - test_summary$mkinversion <- "Dummy 0.0 for testing" - test_summary$Rversion <- "Dummy R version for testing" - test_summary$date.fit <- "Dummy date for testing" - test_summary$date.summary <- "Dummy date for testing" - test_summary$time <- c(elapsed = "test time 0") - - expect_known_output(print(nlmixr_saem_biphasic, digits = 1), "print_nlmixr_saem_biphasic.txt") - expect_known_output(print(test_summary, digits = 1), "summary_nlmixr_saem_biphasic.txt") -}) - -- cgit v1.2.1