inst/unitTests/runit.sfpower-inputs.R

# sfpower test functions

"test.sfpower.param" <- function()
{
	 checkException(sfpower(param="abc"), msg="Checking for incorrect variable type", silent=TRUE) 
	 checkException(sfpower(param=rep(1,2)), msg="Checking for incorrect variable length", silent=TRUE) 
	 checkException(sfpower(param=-1), msg="Checking for out-of-range variable value", silent=TRUE) 
}

Try the gsDesign package in your browser

Any scripts or data that you put into this service are public.

gsDesign documentation built on May 2, 2019, 4:49 p.m.