projects
/
pspp-builds.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix bug #19604. T-Test documentation now matches code; code matches spss behaviour
[pspp-builds.git]
/
src
/
language
/
stats
/
t-test.q
diff --git
a/src/language/stats/t-test.q
b/src/language/stats/t-test.q
index 2e14632dc9b4f698b3fec8e2cf2c63331b81a5f1..9691578e7fdd6835e1cd980435f7af6903b3584b 100644
(file)
--- a/
src/language/stats/t-test.q
+++ b/
src/language/stats/t-test.q
@@
-736,8
+736,8
@@
ssbox_independent_samples_populate(struct ssbox *ssb,
if (gp.criterion == CMP_LE )
{
if (gp.criterion == CMP_LE )
{
- strcpy(prefix[0],"
<
");
- strcpy(prefix[1],"
>=
");
+ strcpy(prefix[0],"
>=
");
+ strcpy(prefix[1],"
<
");
indep_value[0] = gp.v.critical_value;
indep_value[1] = gp.v.critical_value;
}
indep_value[0] = gp.v.critical_value;
indep_value[1] = gp.v.critical_value;
}
@@
-785,13
+785,13
@@
ssbox_independent_samples_populate(struct ssbox *ssb,
{
if ( count == 0 )
{
{
if ( count == 0 )
{
- /*
less than ( < ) case
*/
- search_val.f = gp.v.critical_value
-
1.0;
+ /*
>= case
*/
+ search_val.f = gp.v.critical_value
+
1.0;
}
else
{
}
else
{
- /*
>= case
*/
- search_val.f = gp.v.critical_value
+
1.0;
+ /*
less than ( < ) case
*/
+ search_val.f = gp.v.critical_value
-
1.0;
}
}
else
}
}
else
@@
-1688,7
+1688,6
@@
group_precalc (struct cmd_t_test *cmd )
}
hsh_insert ( ttpr->group_hash, (void *) gs );
}
hsh_insert ( ttpr->group_hash, (void *) gs );
-
}
}
}
}
@@
-1867,7
+1866,7
@@
compare_group_binary(const struct group_statistics *a,
if ( p->criterion == CMP_LE )
{
if ( p->criterion == CMP_LE )
{
- /* less-than
-or-equal
comparision is not meaningfull for
+ /* less-than comparision is not meaningfull for
alpha variables, so we shouldn't ever arrive here */
assert(p->indep_width == 0 ) ;
alpha variables, so we shouldn't ever arrive here */
assert(p->indep_width == 0 ) ;