projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
session: Fix two memory leaks.
[pspp]
/
src
/
language
/
stats
/
jonckheere-terpstra.c
diff --git
a/src/language/stats/jonckheere-terpstra.c
b/src/language/stats/jonckheere-terpstra.c
index 9bf4cb74134de3cb5eccd286d757b1d35d22a86e..796168a8eec87888a0ed4ee2ca554b699c6dd9d7 100644
(file)
--- a/
src/language/stats/jonckheere-terpstra.c
+++ b/
src/language/stats/jonckheere-terpstra.c
@@
-387,6
+387,8
@@
show_jt (const struct n_sample_test *nst, const struct jt *jt, const struct vari
for (i = 0; i < nst->n_vars; ++i)
{
for (i = 0; i < nst->n_vars; ++i)
{
+ double std_jt;
+
tab_text (table, 0, i + row_headers, TAT_TITLE,
var_to_string (nst->vars[i]) );
tab_text (table, 0, i + row_headers, TAT_TITLE,
var_to_string (nst->vars[i]) );
@@
-405,7
+407,7
@@
show_jt (const struct n_sample_test *nst, const struct jt *jt, const struct vari
tab_double (table, 5, i + row_headers, TAT_TITLE,
jt[0].stddev, 0);
tab_double (table, 5, i + row_headers, TAT_TITLE,
jt[0].stddev, 0);
-
double
std_jt = (jt[0].obs - jt[0].mean) / jt[0].stddev;
+ std_jt = (jt[0].obs - jt[0].mean) / jt[0].stddev;
tab_double (table, 6, i + row_headers, TAT_TITLE,
std_jt, 0);
tab_double (table, 6, i + row_headers, TAT_TITLE,
std_jt, 0);