aboutsummaryrefslogblamecommitdiff
path: root/tests/testthat/test_analytical.R
blob: 3d30e042157fbc42dd1fb53a679e8fbcfc0fd62a (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11










                                                            
context("Analytical solutions for coupled models")

test_that("The analytical solution of SFO-SFO is correct", {
  f_sfo_sfo.ff.analytical <- mkinfit(SFO_SFO.ff,
    subset(FOCUS_2006_D, value != 0),
    quiet = TRUE)
  expect_equal(
    parms(f_sfo_sfo.ff),
    parms(f_sfo_sfo.ff.analytical)
  )
})

Contact - Imprint