[Gsdesign-commits] r177 - pkg/R
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Mon Aug 24 22:07:36 CEST 2009
Author: keaven
Date: 2009-08-24 22:07:35 +0200 (Mon, 24 Aug 2009)
New Revision: 177
Modified:
pkg/R/gsBinomial.R
Log:
Allowed outtype=3 in nBinomial error checking
Modified: pkg/R/gsBinomial.R
===================================================================
--- pkg/R/gsBinomial.R 2009-08-22 10:38:06 UTC (rev 176)
+++ pkg/R/gsBinomial.R 2009-08-24 20:07:35 UTC (rev 177)
@@ -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))
+ checkScalar(outtype, "integer", c(1, 2, 3))
checkScalar(scale, "character")
scale <- match.arg(tolower(scale), c("difference", "rr", "or", "lnor"))
checkLengths(p1, p2, beta, delta0, ratio, allowSingle=TRUE)
More information about the Gsdesign-commits
mailing list