[Gsdesign-commits] r268 - pkg/gsDesign/inst/NewTests

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

Author: keaven
Date: 2010-10-02 14:24:43 +0200 (Sat, 02 Oct 2010)
New Revision: 268

Added:
   pkg/gsDesign/inst/NewTests/gsCPTests.R
Log:
gsCPTests.R to test gsCP

Added: pkg/gsDesign/inst/NewTests/gsCPTests.R
===================================================================
--- pkg/gsDesign/inst/NewTests/gsCPTests.R	                        (rev 0)
+++ pkg/gsDesign/inst/NewTests/gsCPTests.R	2010-10-02 12:24:43 UTC (rev 268)
@@ -0,0 +1,14 @@
+# the following should produce errors
+gsPP(x=1)
+x <- gsDesign()
+x1 <- gsDesign(test.type=1)
+gsPP(x=x, i=x$k)
+gsPP(x=x1, i=1, zi=-25)
+gsPP(x=x, i=1, zi=2*x$upper$bound[1])
+gsPP(x=x, i=2, zi=-20)
+gsPP(x=x, i=1, zi="text")
+gsPP(x=x, i=1, zi=x$upper$bound[1], theta="text")
+gsPP(x=x, i=1, zi=x$upper$bound[1], wgts="text")
+gsPP(x=x, i=1, zi=x$upper$bound[1], wgts=c(1,2,3))
+gsPP(x=x, i=1, zi=x$upper$bound[1], r=0)
+gsPP(x=x, i=1, zi=x$upper$bound[1], r=81)