[Power-commits] r44 - pkg/sse/tests/testthat

[noreply at r-forge.r-project.org]

Author: thofab
Date: 2021-05-19 14:29:42 +0200 (Wed, 19 May 2021)
New Revision: 44

Modified:
   pkg/sse/tests/testthat/test-standard.R
Log:
changing parameters of test for testing the inspection with the step method

Modified: pkg/sse/tests/testthat/test-standard.R
===================================================================
--- pkg/sse/tests/testthat/test-standard.R	2021-05-18 19:33:03 UTC (rev 43)
+++ pkg/sse/tests/testthat/test-standard.R	2021-05-19 12:29:42 UTC (rev 44)
@@ -2,6 +2,7 @@
 
 library(testthat)
 library(sse)
+set.seed(123)
 ## as used in the vignette(examples)
 psi <- powPar(theta = seq(from = 0.5, to = 1.5, by = 0.05),
               n = seq(from = 20, to = 60, by = 2))
@@ -122,8 +123,9 @@
 
 
 ## method = "step" is possible for resampling -> check: is method step is used?
-inspect(powEx(calc.resample, theta = 1, power = 0.9, method = "step"))
-inspect(powEx(calc.resample2, theta = 1, power = 0.9, method = "step"))
+# it is possible that by chance these lines fail because power is to small!
+ inspect(powEx(calc.resample, theta = 1, power = 0.8, method = "step"))
+ inspect(powEx(calc.resample2, theta = 1, power = 0.8, method = "step"))
 
 inspect(powEx(calc.resample2,
               theta = 1,