aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/testthat/test_FOCUS_chi2_error_level.R3
-rw-r--r--tests/testthat/test_parent_only.R4
-rw-r--r--tests/testthat/test_twa.R6
3 files changed, 6 insertions, 7 deletions
diff --git a/tests/testthat/test_FOCUS_chi2_error_level.R b/tests/testthat/test_FOCUS_chi2_error_level.R
index 2db2f4e6..1f1e2a06 100644
--- a/tests/testthat/test_FOCUS_chi2_error_level.R
+++ b/tests/testthat/test_FOCUS_chi2_error_level.R
@@ -1,4 +1,4 @@
-# Copyright (C) 2014-15 Johannes Ranke
+# Copyright (C) 2014,2015,2018 Johannes Ranke
# Contact: jranke@uni-bremen.de
# This file is part of the R package mkin
@@ -39,6 +39,7 @@ test_that("Chi2 error levels for FOCUS D are as in mkin 0.9-33", {
})
test_that("Chi2 error levels for FOCUS E are as in mkin 0.9-33", {
+ skip_on_cran()
fit <- mkinfit(SFO_SFO.ff, FOCUS_2006_E, quiet = TRUE)
diff --git a/tests/testthat/test_parent_only.R b/tests/testthat/test_parent_only.R
index 9a3844cf..ee0cc144 100644
--- a/tests/testthat/test_parent_only.R
+++ b/tests/testthat/test_parent_only.R
@@ -1,4 +1,4 @@
-# Copyright (C) 2015 Johannes Ranke
+# Copyright (C) 2015,2018 Johannes Ranke
# Contact: jranke@uni-bremen.de
# This file is part of the R package mkin
@@ -89,6 +89,7 @@ test_that("Fits for FOCUS A deviate less than 0.1% from median of values from FO
})
test_that("Fits for FOCUS B deviate less than 0.1% from median of values from FOCUS report", {
+ skip_on_cran()
fit.B.SFO <- list(mkinfit("SFO", FOCUS_2006_B, quiet = TRUE))
median.B.SFO <- as.numeric(lapply(subset(FOCUS_2006_SFO_ref_A_to_F,
@@ -202,6 +203,7 @@ test_that("DFOP fits give approximately (0.001%) equal results with different so
})
test_that("SFORB fits give approximately (0.002%) equal results with different solution methods", {
+ skip_on_cran()
fit.B.SFORB.default <- mkinfit(SFORB, FOCUS_2006_B, quiet=TRUE)$bparms.optim
fits.B.SFORB <- list()
diff --git a/tests/testthat/test_twa.R b/tests/testthat/test_twa.R
index 27a76ee8..d5c0b98b 100644
--- a/tests/testthat/test_twa.R
+++ b/tests/testthat/test_twa.R
@@ -1,4 +1,4 @@
-# Copyright (C) 2016,2017 Johannes Ranke
+# Copyright (C) 2016,2017,2018 Johannes Ranke
# Contact: jranke@uni-bremen.de
# This file is part of the R package mkin
@@ -22,10 +22,6 @@ twa_models <- c("SFO", "FOMC", "DFOP")
fits <- mmkin(twa_models, list(FOCUS_D = FOCUS_2006_D),
quiet = TRUE, cores = 1)
-SFO_SFO <- mkinmod(parent = list(type = "SFO", to = "m1"),
- m1 = list(type = "SFO"), quiet = TRUE)
-fit.m1 <- mkinfit(SFO_SFO, FOCUS_2006_D, quiet = TRUE)
-
test_that("Time weighted average concentrations are correct", {
outtimes_7 <- seq(0, 7, length.out = 10000)
for (model in twa_models) {

Contact - Imprint