0.99.49.1

AndriSignorell · Apr 30, 2023 · 214a661 · 214a661
1 parent 29ee76d
commit 214a661
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 7 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -2,7 +2,7 @@ Package: DescTools
 Type: Package
 Title: Tools for Descriptive Statistics
 Version: 0.99.49.1
-Date: 2023-04-28
+Date: 2023-04-30
 Authors@R: c(
   person("Andri", "Signorell", email = "andri@signorell.net", role = c("aut", "cre")),
   person("Ken"           , "Aho",                 role = c("ctb")),

diff --git a/NEWS b/NEWS
@@ -15,11 +15,8 @@ UPDATED FUNCTIONS:
     p estimator for the Agresti-Coull confidence intervall.
     As a replacement for this, there is a argument std_est with 
     which the method specific non-standard point estimator can be returned.
-    (Thanks to julienbio99, MrJerryTAO and VilmantasG for the
+    (Thanks to julienbio99, MrJerryTAO and Vilmantas for the
     research and discussion)
-  * BinomCI() will return a 3 element vector instead of a
-    matrix with 1 row, in the case that only one ci was 
-    calculated. 
 
 BUGFIXES:
   * MultinomCI method goodman uses the correct chisquare quantile now.

diff --git a/R/StatsAndCIs.r b/R/StatsAndCIs.r
@@ -2406,8 +2406,8 @@ BinomCI <- function(x, n, conf.level = 0.95, sides = c("two.sided","left","right
   colnames(res)[1] <- c("est")
   rownames(res) <- xn
 
-  if(nrow(res)==1)
-    res <- res[1,]
+  # if(nrow(res)==1)
+  #   res <- res[1,]
 
   return(res)
 

diff --git a/man/BinomCI.Rd b/man/BinomCI.Rd
@@ -164,5 +164,8 @@ do.call(cbind, lapply(1:4,
                               "clopper-pearson", "midp", "lik"))[, -1], 
            digits=4)
 }))
+
+# returning p.tilde for agresti-coull ci
+BinomCI(x=81, n=263, meth="agresti-coull", std_est = c(TRUE, FALSE))
 }
 \keyword{univar}