calibPop test only for user kowarik and gussenbauer

statistikat · May 28, 2018 · 1c3998f · 1c3998f
1 parent 4f5102c
commit 1c3998f
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/tests/testthat/test_calibPop.R b/tests/testthat/test_calibPop.R
@@ -1,6 +1,9 @@
 ################################################
 # test calibPop functionality
 #
+if(Sys.info()["user"]%in%c("kowarik","gussenbauer")){
+
+
 context("calibPop")
 library(simPop)
 
@@ -60,4 +63,6 @@ test_that("Test CalibPop - check observe.times",{
   expect_true(abs(simPop_adj@table[,sum(N)]-sum(margins$freq))<1)
   simPop_adj <- calibPop(simPop, split="db040", temp=1, eps.factor=0.1,memory=TRUE,sizefactor = 5,observe.times=10,observe.break = .5)
   expect_true(abs(simPop_adj@table[,sum(N)]-sum(margins$freq))<1)
-})
+})
+
+}