0.99.50.5

AndriSignorell · Nov 19, 2023 · 0cd64a3 · 0cd64a3
1 parent 822c734
commit 0cd64a3
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,8 +1,8 @@
 Package: DescTools
 Type: Package
 Title: Tools for Descriptive Statistics
-Version: 0.99.50.3
-Date: 2023-11-06
+Version: 0.99.50.5
+Date: 2023-11-19
 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
@@ -17,7 +17,7 @@ NEW FUNCTIONS ADDED:
 
 
 UPDATED FUNCTIONS:
-  * TwoGroups() gains a formula interface. Plot, print and ToWrd
+  * TwoGroups() gains a formula interface. plot(), print() and ToWrd()
     routines have been better organized.
   * Hardcoded ANSI colors have been replaced by their cli::variants.
   * LCM() and GCD() no longer use the library BH, but rely on 
@@ -28,6 +28,8 @@ BUGFIXES:
     (Credits to Wim Bernasco)
   * Internal function NormWeights() does no more remove 0 values on the
     value vector x. 
+  * VonNeumannTest() uses the correct normal approximation now.
+    (Credits to LukeAFullard in https://github.com/AndriSignorell/DescTools/issues/126)
 
 
 

diff --git a/R/Tests.r b/R/Tests.r
@@ -1321,7 +1321,7 @@ VonNeumannTest <- function (x, alternative = c("two.sided", "less", "greater"),
     VN <- sum(d^2) / sum((x - mx)^2) * n/(n-1)
     Ex <- 2 * n/(n-1)
     Vx <- 4 * n^2 * (n-2) / ((n+1) * (n-1)^3)
-    z <- (VN - Ex) / Vx
+    z <- (VN - Ex) / sqrt(Vx)
 
   } else {
     VN <- sum(d^2) / sum((x - mx)^2)

diff --git a/src/DescTools.dll b/src/DescTools.dll