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) {