vrsn <- "20120804"
Dirname <- "errSpendExmpls"
FileName <- "RCTvalidateErrSpendExmpls"

RCTvalidateOutputDirname <- paste(RCTdirnameV,Dirname,sep="")
if(!file.exists(RCTvalidateOutputDirname))
	dir.create(RCTvalidateOutputDirname)
RCTvalidateOutputDirname <- paste(RCTvalidateOutputDirname,"/",sep="")
cat("#####", FileName, "-", vrsn, "\n")


####################
TestName <- "Err Spend Family  "
####################

rslt <- NULL

# Test 1
outputName <- "val0001"
outputFile <- paste(RCTvalidateOutputDirname,outputName,sep="")
z <- seqDesign (nbr.analyses=4,design.family="E",suppressErrors=T,EPSILON=1e-8)
if(!file.exists(outputFile))
	dput(z,file=outputFile)
check <- all.equal(z,dget(file=outputFile))
rslt <- c(rslt,ifelse1(is.logical(check),check,F))

# Test 2
check <- all.equal(z,seqDesign (nbr.analyses=4,design.family="E",P=-3.25,suppressErrors=T,EPSILON=1e-8))
rslt <- c(rslt,ifelse1(is.logical(check),check,F))

# Test 3
outputName <- "val0002"
outputFile <- paste(RCTvalidateOutputDirname,outputName,sep="")
z <- seqDesign (nbr.analyses=4,design.family="E",P=-1,suppressErrors=T,EPSILON=1e-8)
if(!file.exists(outputFile))
	dput(z,file=outputFile)
check <- all.equal(z,dget(file=outputFile))
rslt <- c(rslt,ifelse1(is.logical(check),check,F))

# Test 4
outputName <- "val0003"
outputFile <- paste(RCTvalidateOutputDirname,outputName,sep="")
z <- seqDesign (nbr.analyses=4,design.family="E",P=c(-3.25,-1),suppressErrors=T,EPSILON=1e-8)
if(!file.exists(outputFile))
	dput(z,file=outputFile)
check <- all.equal(z,dget(file=outputFile))
rslt <- c(rslt,ifelse1(is.logical(check),check,F))

# Test 5
outputName <- "val0004"
outputFile <- paste(RCTvalidateOutputDirname,outputName,sep="")
z <- seqDesign (nbr.analyses=4,design.family="E",P=c(-1,-3.25),suppressErrors=T,EPSILON=1e-8)
if(!file.exists(outputFile))
	dput(z,file=outputFile)
check <- all.equal(z,dget(file=outputFile))
rslt <- c(rslt,ifelse1(is.logical(check),check,F))

# Test 6
outputName <- "val0005"
outputFile <- paste(RCTvalidateOutputDirname,outputName,sep="")
z <- seqDesign (sample.size=c(10,40,150,200),design.family="E",P=c(-1,-3.25),suppressErrors=T,EPSILON=1e-8)
if(!file.exists(outputFile))
	dput(z,file=outputFile)
check <- all.equal(z,dget(file=outputFile))
rslt <- c(rslt,ifelse1(is.logical(check),check,F))

# Test 7
outputName <- "val0006"
outputFile <- paste(RCTvalidateOutputDirname,outputName,sep="")
z <- seqDesign (nbr.analyses=4,design.family="E",P=c(-3.25,-1),test.type="two.sided",suppressErrors=T,EPSILON=1e-8)
if(!file.exists(outputFile))
	dput(z,file=outputFile)
check <- all.equal(z,dget(file=outputFile))
rslt <- c(rslt,ifelse1(is.logical(check),check,F))

# Test 8
outputName <- "val0007"
outputFile <- paste(RCTvalidateOutputDirname,outputName,sep="")
z <- seqDesign (nbr.analyses=4,design.family="E",P=c(-3.25,-1),test.type="two.sided",
   early.stopping="both",suppressErrors=T,EPSILON=1e-8)
if(!file.exists(outputFile))
	dput(z,file=outputFile)
check <- all.equal(z,dget(file=outputFile))
rslt <- c(rslt,ifelse1(is.logical(check),check,F))

# Test 9
outputName <- "val0008"
outputFile <- paste(RCTvalidateOutputDirname,outputName,sep="")
z <- seqDesign (nbr.analyses=4,design.family="E",P=c(-1,-3.25),test.type="two.sided",
   early.stopping="both",suppressErrors=T,EPSILON=1e-8)
if(!file.exists(outputFile))
	dput(z,file=outputFile)
check <- all.equal(z,dget(file=outputFile))
rslt <- c(rslt,ifelse1(is.logical(check),check,F))

# Test 10
outputName <- "val0009"
outputFile <- paste(RCTvalidateOutputDirname,outputName,sep="")
z <- seqDesign (nbr.analyses=4,design.family="E",R=c(1,3.25),test.type="two.sided",
   early.stopping="both",suppressErrors=T,EPSILON=1e-8)
if(!file.exists(outputFile))
	dput(z,file=outputFile)
check <- all.equal(z,dget(file=outputFile))
rslt <- c(rslt,ifelse1(is.logical(check),check,F))

# Test 11
outputName <- "val0010"
outputFile <- paste(RCTvalidateOutputDirname,outputName,sep="")
z <- seqDesign (nbr.analyses=4,design.family="E",R=c(0.2,3.25),test.type="two.sided",
   early.stopping="both",size=0.01,suppressErrors=T,EPSILON=1e-8)
if(!file.exists(outputFile))
	dput(z,file=outputFile)
check <- all.equal(z,dget(file=outputFile))
rslt <- c(rslt,ifelse1(is.logical(check),check,F))

# Test 12
rslt <- c(rslt,is.character(seqDesign (nbr.analyses=4,design.family="E",P=c(-1,-3.25),
	R=c(0.2,3.25),test.type="two.sided", early.stopping="both",size=0.01,
	suppressErrors=T,EPSILON=1e-8)))

if (all(rslt)) {cat("     ",TestName,": All",length(rslt),"tests  PASS\n")
} else cat("     ",TestName,": failing test numbers ", (1:length(rslt))[!rslt],"\n")

rm(FileName,TestName,Dirname,outputFile,RCTvalidateOutputDirname,rslt,check,z)