[Gsdesign-commits] r178 - pkg/R

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

Author: keaven
Date: 2009-08-24 22:24:05 +0200 (Mon, 24 Aug 2009)
New Revision: 178

Modified:
   pkg/R/gsBinomial.R
Log:
Allowed outtype=3 in nBinomial error checking

Modified: pkg/R/gsBinomial.R
===================================================================
--- pkg/R/gsBinomial.R	2009-08-24 20:07:35 UTC (rev 177)
+++ pkg/R/gsBinomial.R	2009-08-24 20:24:05 UTC (rev 178)
@@ -122,7 +122,7 @@
     checkVector(beta, "numeric", c(0, 1 - alpha / sided), c(FALSE, FALSE))
     checkVector(delta0, "numeric")
     checkVector(ratio, "numeric", c(0, Inf), c(FALSE, FALSE))
-    checkScalar(outtype, "integer", c(1, 2, 3))
+    checkScalar(outtype, "integer", c(1, 3))
     checkScalar(scale, "character")
     scale <- match.arg(tolower(scale), c("difference", "rr", "or", "lnor"))
     checkLengths(p1, p2, beta, delta0, ratio, allowSingle=TRUE)