test(vignette): add comparison between CaRamel vignette and Rda file objects

Refs #61

test(vignette): add comparison between CaRamel vignette and Rda file objects
Refs #61
915f8c62 · Delaigue Olivier · 8cc44cc3 · 915f8c62
Commit 915f8c62 authored 4 years ago by Delaigue Olivier
Hide whitespace changes
Inline Side-by-side

Showing

with 3 additions and 0 deletions
+3 -0
--- a/tests/testthat/test-vignettes.R
+++ b/tests/testthat/test-vignettes.R
@@ -11,11 +11,14 @@ test_that("V02.1_param_optim works", {
  skip_on_cran()
  rm(list = ls())
  load(system.file("vignettesData/vignetteParamOptim.rda", package = "airGR"))
+  load(system.file("vignettesData/vignetteParamOptimCaramel.rda", package = "airGR"))
  rda_resGLOB <- resGLOB
  rda_resPORT <- resPORT
+  rda_optMO <- optMO
  expect_true(RunVignetteChunks("V02.1_param_optim"))
  expect_equal(summary(resGLOB), summary(rda_resGLOB), tolerance = 1e-7)
  expect_equal(resGLOB[, -1], rda_resGLOB[, -1], tolerance = 1e-2) # High tolerance due to randomisation in optimisations
+  expect_equal(summary(optMO$parameters), summary(rda_optMO$parameters), tolerance = 1e-7)
 })

 test_that("V02.2_param_mcmc works", {