Fixed the t-test model to be consistent with the anova model.
[pspp-builds.git] / src / group.c
1 /* PSPP - computes sample statistics.
2    Copyright (C) 1997-9, 2000 Free Software Foundation, Inc.
3    Written by John Darrington <john@darrington.wattle.id.au>
4
5    This program is free software; you can redistribute it and/or
6    modify it under the terms of the GNU General Public License as
7    published by the Free Software Foundation; either version 2 of the
8    License, or (at your option) any later version.
9
10    This program is distributed in the hope that it will be useful, but
11    WITHOUT ANY WARRANTY; without even the implied warranty of
12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13    General Public License for more details.
14
15    You should have received a copy of the GNU General Public License
16    along with this program; if not, write to the Free Software
17    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
18    02111-1307, USA. */
19
20 #include "hash.h"
21 #include "group.h"
22 #include <string.h>
23
24
25 /* Return -1 if the id of a is less than b; +1 if greater than and 
26    0 if equal */
27 int 
28 compare_group(const struct group_statistics *a, 
29                  const struct group_statistics *b, 
30                  int width)
31 {
32   return compare_values(&a->id, &b->id, width);
33 }
34
35
36 unsigned 
37 hash_group(const struct group_statistics *g, int width)
38 {
39   unsigned id_hash;
40
41   if ( 0 == width ) 
42     id_hash = hsh_hash_double (g->id.f);
43   else
44     id_hash = hsh_hash_bytes (g->id.s, width);
45
46   return id_hash;
47 }
48
49
50 void  
51 free_group(struct group_statistics *v, void *aux)
52 {
53   free(v);
54 }