inst/unitTests/runit.simBinomial-inputs.R

# simBinomial test functions

"test.simBinomial.p1" <- function()
{
	 checkException(simBinomial(p1="abc", p2=0.1, n1=1, n2=1), msg="Checking for incorrect variable type", silent=TRUE) 
	 checkException(simBinomial(p1=0, p2=0.1, n1=1, n2=1), msg="Checking for out-of-range variable value", silent=TRUE) 
	 checkException(simBinomial(p1=1, p2=0.1, n1=1, n2=1), msg="Checking for out-of-range variable value", silent=TRUE) 
	 checkException(simBinomial(p1=rep(0.1, 2), p2=0.1, n1=1, n2=1), msg="Checking for incorrect variable length", silent=TRUE) 
}

"test.simBinomial.p2" <- function()
{
	 checkException(simBinomial(p2="abc", p1=0.1, n1=1, n2=1), msg="Checking for incorrect variable type", silent=TRUE) 
	 checkException(simBinomial(p2=0, p1=0.1, n1=1, n2=1), msg="Checking for out-of-range variable value", silent=TRUE) 
	 checkException(simBinomial(p2=1, p1=0.1, n1=1, n2=1), msg="Checking for out-of-range variable value", silent=TRUE) 
	 checkException(simBinomial(p2=rep(0.2,2), p1=0.1, n1=1, n2=1), msg="Checking for incorrect variable length", silent=TRUE) 
}

"test.simBinomial.n1" <- function()
{
	 checkException(simBinomial(n1="abc", p1=0.1, p2=0.2, n2=2), msg="Checking for incorrect variable type", silent=TRUE) 
	 checkException(simBinomial(n1=0, p1=0.1, p2=0.2, n2=2), msg="Checking for out-of-range variable value", silent=TRUE) 
	 checkException(simBinomial(n1=rep(2,2), p1=0.1, p2=0.2, n2=2), msg="Checking for incorrect variable length", silent=TRUE) 
}

"test.simBinomial.n2" <- function()
{
	 checkException(simBinomial(n2="abc", p1=0.1, p2=0.2, n1=2), msg="Checking for incorrect variable type", silent=TRUE) 
	 checkException(simBinomial(n2=0, p1=0.1, p2=0.2, n1=2), msg="Checking for out-of-range variable value", silent=TRUE) 
	 checkException(simBinomial(n2=rep(2,2), p1=0.1, p2=0.2, n1=2), msg="Checking for incorrect variable length", silent=TRUE) 
}

"test.simBinomial.delta0" <- function()
{
	 checkException(simBinomial(delta0="abc", p1=0.1, p2=0.2, n1=1, n2=1), msg="Checking for incorrect variable type", silent=TRUE) 
	 checkException(simBinomial(delta0=c(-1), p1=0.1, p2=0.2, n1=1, n2=1), msg="Checking for out-of-range variable value", silent=TRUE) 
	 checkException(simBinomial(delta0=1, p1=0.1, p2=0.2, n1=1, n2=1), msg="Checking for out-of-range variable value", silent=TRUE) 
	 checkException(simBinomial(delta0=rep(0.1,2), p1=0.1, p2=0.2, n1=1, n2=1), msg="Checking for incorrect variable length", silent=TRUE) 
}

"test.simBinomial.chisq" <- function()
{
	 checkException(simBinomial(chisq="abc", p1=0.1, p2=0.2, n1=1, n2=1), msg="Checking for incorrect variable type", silent=TRUE) 
	 checkException(simBinomial(chisq=c(-1), p1=0.1, p2=0.2, n1=1, n2=1), msg="Checking for out-of-range variable value", silent=TRUE) 
	 checkException(simBinomial(chisq=2, p1=0.1, p2=0.2, n1=1, n2=1), msg="Checking for out-of-range variable value", silent=TRUE) 
	 checkException(simBinomial(chisq=rep(1,2), p1=0.1, p2=0.2, n1=1, n2=1), msg="Checking for incorrect variable length", silent=TRUE) 
}

"test.simBinomial.adj" <- function()
{
	 checkException(simBinomial(adj="abc", p1=0.1, p2=0.2, n1=1, n2=1), msg="Checking for incorrect variable type", silent=TRUE) 
	 checkException(simBinomial(adj=c(-1), p1=0.1, p2=0.2, n1=1, n2=1), msg="Checking for out-of-range variable value", silent=TRUE) 
	 checkException(simBinomial(adj=2, p1=0.1, p2=0.2, n1=1, n2=1), msg="Checking for out-of-range variable value", silent=TRUE) 
	 checkException(simBinomial(adj=rep(1,2), p1=0.1, p2=0.2, n1=rep(1,3), n2=1), msg="Checking for incorrect variable length", silent=TRUE) 
}

"test.simBinomial.scale" <- function()
{
	 checkException(simBinomial(scale=1, p1=0.1, p2=0.2, n1=1, n2=1), msg="Checking for incorrect variable type", silent=TRUE) 
	 checkException(simBinomial(scale="abc", p1=0.1, p2=0.2, n1=1, n2=1), msg="Checking for out-of-range variable value", silent=TRUE) 
	 checkException(simBinomial(scale=rep("RR",2), p1=0.1, p2=0.2, n1=1, n2=1), msg="Checking for incorrect variable length", 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.