X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Ft-test.q;h=9e332df87be2a9bcb1f88e74aefc0d96ea8018d0;hb=92f198d13c9214c0d75b936f0ea0dc2684ea914b;hp=7c2352c4cf26dbf88c20b317da38a113f8b4884a;hpb=a4ae68f966bc574326d429119878e733069ced14;p=pspp diff --git a/src/language/stats/t-test.q b/src/language/stats/t-test.q index 7c2352c4cf..9e332df87b 100644 --- a/src/language/stats/t-test.q +++ b/src/language/stats/t-test.q @@ -36,6 +36,7 @@ #include #include #include +#include #include #include #include @@ -59,11 +60,11 @@ "T-TEST" (tts_): +groups=custom; testval=double; - variables=varlist("PV_NO_SCRATCH | PV_NUMERIC"); - pairs=custom; - +missing=miss:!analysis/listwise, - incl:include/!exclude; - format=fmt:!labels/nolabels; + +variables=varlist("PV_NO_SCRATCH | PV_NUMERIC"); + +pairs=custom; + missing=miss:!analysis/listwise, + incl:include/!exclude; + +format=fmt:!labels/nolabels; criteria=:cin(d:criteria,"%s > 0. && %s < 1."). */ /* (declarations) */ @@ -259,7 +260,7 @@ cmd_t_test(void) { bool ok; - if ( !parse_t_test(&cmd) ) + if ( !parse_t_test(&cmd, NULL) ) return CMD_FAILURE; if (! cmd.sbc_criteria) @@ -366,7 +367,7 @@ cmd_t_test(void) } static int -tts_custom_groups (struct cmd_t_test *cmd UNUSED) +tts_custom_groups (struct cmd_t_test *cmd UNUSED, void *aux UNUSED) { int n_group_values=0; @@ -445,7 +446,7 @@ tts_custom_groups (struct cmd_t_test *cmd UNUSED) static int -tts_custom_pairs (struct cmd_t_test *cmd UNUSED) +tts_custom_pairs (struct cmd_t_test *cmd UNUSED, void *aux UNUSED) { struct variable **vars; size_t n_vars; @@ -582,7 +583,7 @@ parse_value (union value * v, int type ) { if (!lex_force_string ()) return 0; - strncpy (v->s, ds_c_str (&tokstr), ds_length (&tokstr)); + strncpy (v->s, ds_cstr (&tokstr), ds_length (&tokstr)); } lex_get (); @@ -623,7 +624,7 @@ ssbox_create(struct ssbox *ssb, struct cmd_t_test *cmd, int mode) ssbox_paired_init(ssb,cmd); break; default: - assert(0); + NOT_REACHED (); } } @@ -937,7 +938,7 @@ trbox_create(struct trbox *trb, trbox_paired_init(trb,cmd); break; default: - assert(0); + NOT_REACHED (); } } @@ -1970,7 +1971,7 @@ hash_group_binary(const struct group_statistics *g, flag = which_group(g,p); } else - assert(0); + NOT_REACHED (); return flag; }