diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2018-09-21 17:15:06 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2018-09-21 17:15:06 +0200 |
| commit | b12e80a875d87f790d67a4e5a50d829060316a18 (patch) | |
| tree | 0504845ea4551bdd8e822e00b60c5617ab48f1d9 /tests/testthat/test_twa.R | |
| parent | 9cea08c280aaf6d2a11c399c9b29fa9e8a5373d5 (diff) | |
Improve fitting the two-component error model
with respect to accuracy and robustness.
Diffstat (limited to 'tests/testthat/test_twa.R')
| -rw-r--r-- | tests/testthat/test_twa.R | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/tests/testthat/test_twa.R b/tests/testthat/test_twa.R index 9151ed42..42b74a7f 100644 --- a/tests/testthat/test_twa.R +++ b/tests/testthat/test_twa.R @@ -22,15 +22,9 @@ context("Calculation of maximum time weighted average concentrations (TWAs)") test_that("Time weighted average concentrations are correct", { skip_on_cran() twa_models <- c("SFO", "FOMC", "DFOP", "HS") - travis_env <- Sys.getenv("TRAVIS") - if (travis_env == "") { - travis <- FALSE - } else { - travis <- TRUE - } fits <- mmkin(twa_models, list(FOCUS_C = FOCUS_2006_C, FOCUS_D = FOCUS_2006_D), - quiet = TRUE, cores = if (travis) 1 else 8) + quiet = TRUE, cores = if (Sys.getenv("TRAVIS") == "") 15 else 1) outtimes_10 <- seq(0, 10, length.out = 10000) |