X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fmath%2Fmoments.c;h=e289e8aec0ef27c2372e2c007eeb30e6b2f6d469;hb=ac9250d84078a03c825f3d801305cdcd071ebb86;hp=d129f6ab038b3eee06104e716b15fbcf432c61c5;hpb=4aa40ed36fcdb13f73520945d804e6d3d8d52738;p=pspp-builds.git diff --git a/src/math/moments.c b/src/math/moments.c index d129f6ab..e289e8ae 100644 --- a/src/math/moments.c +++ b/src/math/moments.c @@ -1,5 +1,5 @@ /* PSPP - a program for statistical analysis. - Copyright (C) 1997-9, 2000 Free Software Foundation, Inc. + Copyright (C) 1997-9, 2000, 2010, 2011 Free Software Foundation, Inc. This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by @@ -15,15 +15,18 @@ along with this program. If not, see . */ #include -#include "moments.h" + +#include "math/moments.h" + #include #include #include -#include -#include -#include -#include "xalloc.h" +#include "data/val-type.h" +#include "data/value.h" +#include "libpspp/misc.h" + +#include "gl/xalloc.h" #include "gettext.h" #define _(msgid) gettext (msgid) @@ -49,7 +52,7 @@ calc_moments (enum moment max_moment, /* From _SPSS Statistical Algorithms, 2nd ed., 0-918469-89-9, section "DESCRIPTIVES". */ - if (fabs (*variance) >= 1e-20) + if (fabs (s2) >= 1e-20) { if (max_moment >= MOMENT_SKEWNESS && skewness != NULL && w > 2.) {