if ( (specs->descriptives || specs->quartiles)
&& !taint_has_tainted_successor (casereader_get_taint (input)) )
- do_summary_box (summary_descriptives, specs->vv, specs->n_vars );
+ do_summary_box (summary_descriptives, specs->vv, specs->n_vars,
+ dict_get_weight_format (dataset_dict (ds)));
free (summary_descriptives);
casereader_destroy (input);
}
}
- sort (npar_specs.vv, npar_specs.n_vars, sizeof (*npar_specs.vv),
+ sort (npar_specs.vv, npar_specs.n_vars, sizeof (*npar_specs.vv),
compare_var_ptrs_by_name, NULL);
if ( cmd.statistics )
lex_error (lexer, _("Expecting %s, %s, %s or a number."), "MEAN", "MEDIAN", "MODE");
return 0;
}
-
+
if (! lex_force_match (lexer, T_RPAREN))
return 2;
-
+
if (! lex_force_match (lexer, T_EQUALS))
return 2;
-
+
if (!parse_variables_const_pool (lexer, specs->pool, dataset_dict (ds),
&tp->vars, &tp->n_vars,
PV_NO_SCRATCH | PV_NO_DUPLICATE | PV_NUMERIC))
npar_friedman (struct lexer *lexer, struct dataset *ds,
struct npar_specs *specs)
{
- struct friedman_test *ft = pool_alloc (specs->pool, sizeof (*ft));
+ struct friedman_test *ft = pool_alloc (specs->pool, sizeof (*ft));
struct one_sample_test *ost = &ft->parent;
struct npar_test *nt = &ost->parent;
npar_kendall (struct lexer *lexer, struct dataset *ds,
struct npar_specs *specs)
{
- struct friedman_test *kt = pool_alloc (specs->pool, sizeof (*kt));
+ struct friedman_test *kt = pool_alloc (specs->pool, sizeof (*kt));
struct one_sample_test *ost = &kt->parent;
struct npar_test *nt = &ost->parent;
npar_cochran (struct lexer *lexer, struct dataset *ds,
struct npar_specs *specs)
{
- struct one_sample_test *ft = pool_alloc (specs->pool, sizeof (*ft));
+ struct one_sample_test *ft = pool_alloc (specs->pool, sizeof (*ft));
struct npar_test *nt = &ft->parent;
nt->execute = cochran_execute;
if (!lex_force_match (lexer, T_EQUALS))
return 0;
- {
- if (parse_variables_const_pool (lexer, specs->pool, dataset_dict (ds),
- &tp->vars, &tp->n_vars,
- PV_NUMERIC | PV_NO_SCRATCH | PV_NO_DUPLICATE) )
- {
- if (lex_match (lexer, T_LPAREN))
- {
- if (! lex_force_num (lexer))
- return 2;
- btp->category1 = lex_number (lexer);
- lex_get (lexer);
- if ( lex_match (lexer, T_COMMA))
- {
- if ( ! lex_force_num (lexer) ) return 2;
- btp->category2 = lex_number (lexer);
- lex_get (lexer);
- }
- else
- {
- btp->cutpoint = btp->category1;
- }
-
- if (! lex_force_match (lexer, T_RPAREN))
- return 0;
- }
- }
- else
- {
- return 2;
- }
- }
+ {
+ if (parse_variables_const_pool (lexer, specs->pool, dataset_dict (ds),
+ &tp->vars, &tp->n_vars,
+ PV_NUMERIC | PV_NO_SCRATCH | PV_NO_DUPLICATE) )
+ {
+ if (lex_match (lexer, T_LPAREN))
+ {
+ if (! lex_force_num (lexer))
+ return 2;
+ btp->category1 = lex_number (lexer);
+ lex_get (lexer);
+ if ( lex_match (lexer, T_COMMA))
+ {
+ if ( ! lex_force_num (lexer) ) return 2;
+ btp->category2 = lex_number (lexer);
+ lex_get (lexer);
+ }
+ else
+ {
+ btp->cutpoint = btp->category1;
+ }
+
+ if (! lex_force_match (lexer, T_RPAREN))
+ return 0;
+ }
+ }
+ else
+ {
+ return 2;
+ }
+ }
specs->n_tests++;
specs->test = pool_realloc (specs->pool,
size_t hash = hash_pointer (var, 0);
struct hmapx_node *node;
const struct variable *v = NULL;
-
+
HMAPX_FOR_EACH_WITH_HASH (v, node, hash, var_map)
{
if ( v == var)
}
}
-static void
+static void
n_sample_insert_variables (const struct npar_test *test,
struct hmapx *var_map)
{