aboutsummaryrefslogblamecommitdiff
path: root/tests/testthat/test_mhmkin.R
blob: 5243f971cf3e4c7939de4b2376e385b5f010c155 (plain) (tree) 
9e346fab































1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31































                                                                               
context("Batch fitting and diagnosing hierarchical kinetic models")

test_that("Multiple hierarchical kinetic models can be fitted and diagnosed", {

  skip_on_cran()
  fits_synth_const <- suppressWarnings(
    mmkin(c("SFO", "FOMC"), ds_sfo[1:6], cores = n_cores, quiet = TRUE))

  fits_synth_tc <- suppressWarnings(
    update(fits_synth_const, error_model = "tc"))

  expect_known_output(
    convergence(fits_synth_const),
    "convergence_fits_synth_const.txt")

  hfits <- mhmkin(list(fits_synth_const, fits_synth_tc))

  expect_known_output(
    convergence(hfits),
    "convergence_hfits_synth.txt")

  expect_known_output(
    illparms(hfits),
    "illparms_hfits_synth.txt")

  expect_equal(which.min(AIC(hfits)), 3)

  hfit_sfo_tc <- update(hfits[["SFO", "tc"]],
    covariance.model = diag(c(0, 1)))
  expect_equal(illparms(hfit_sfo_tc), character(0))
})

Contact - Imprint