Sat Dec 27 16:16:49 2003 Ben Pfaff <blp@gnu.org>

[pspp-builds.git] / src / stats.c

diff --git a/src/stats.c b/src/stats.c
index a52ab402dae4fb12be41b42ba491905b6ab83610..4727b938e4446091ee43b7ea33ae0d77bc4f3f07 100644 (file)
--- a/src/stats.c
+++ b/src/stats.c
@@ -18,12 +18,12 @@
    02111-1307, USA. */
 
 #include <config.h>
-#include <math.h>
 #include "stats.h"
+#include <math.h>
 
 /* Returns the fourth power of its argument. */
 double
-hypercube (double x)
+pow4 (double x)
 {
   x *= x;
   return x * x;
@@ -60,7 +60,7 @@ calc_kurt (const double d[4], double n, double variance)
     (((n + 1) * (n * d[3]
                 - 4.0 * d[0] * d[2]
                 + 6.0 * sqr (d[0]) * d[1] / n
-                - 3.0 * hypercube (d[0]) / sqr (n)))
+                - 3.0 * pow4 (d[0]) / sqr (n)))
      / ((n - 1.0) * (n - 2.0) * (n - 3.0) * sqr (variance))
      - (3.0 * sqr (n - 1.0))
      / ((n - 2.0) * (n - 3.)));