conf.level blunder in poisson.test PR#14195

git-svn-id: https://svn.r-project.org/R/branches/R-2-10-branch@51057 00db46b3-68df-0310-9c12-caf00c1e9a41
wch · Jan 27, 2010 · a849665 · a849665
1 parent a9f3481
commit a849665
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/NEWS b/NEWS
@@ -92,7 +92,11 @@ BUG FIXES
 	when documented to do so.  (Discovered whilst investigating
 	PR#14189.)
 
-    o	match(incomparables=<non-NULL>) could in rare cases infinite-loop.
+    o	match(incomparables=<non-NULL>) could in rare cases
+        infinite-loop.
+
+    o   poisson.test() needed to pass 'conf.level' to binom.test()
+        (PR#14195)
 
 
 

diff --git a/src/library/stats/R/poisson.test.R b/src/library/stats/R/poisson.test.R
@@ -34,7 +34,7 @@ poisson.test <- function(x, T = 1, r = 1, alternative =
     if (k == 2) {
 
         RVAL <- binom.test(x, sum(x), r * T[1]/(r * T[1] + T[2]),
-                           alternative=alternative)
+                           alternative=alternative, conf.level=conf.level)
 
         RVAL$data.name <- DNAME
         RVAL$statistic <- x[1]