projects
/
pspp-builds.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix EXPORT problem with string variables. From Andreas Streichardt
[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>
02111-1307, USA. */
#include <config.h>
-#include <math.h>
#include "stats.h"
#include "stats.h"
+#include <math.h>
/* Returns the fourth power of its argument. */
double
/* Returns the fourth power of its argument. */
double
-
hypercube
(double x)
+
pow4
(double x)
{
x *= x;
return x * 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
(((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.)));
/ ((n - 1.0) * (n - 2.0) * (n - 3.0) * sqr (variance))
- (3.0 * sqr (n - 1.0))
/ ((n - 2.0) * (n - 3.)));