X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Fmedian.c;h=20e414259fd42d573b76e92595ccd4305bc21c64;hb=490ac70d9c9f754f733552d64c23dd6aedced342;hp=f16aed0a14f0b00ee76fdee702173e3691b3eaad;hpb=cf40a7c5308d086195265623f35b310c0b35f766;p=pspp

diff --git a/src/language/stats/median.c b/src/language/stats/median.c
index f16aed0a14..20e414259f 100644
--- a/src/language/stats/median.c
+++ b/src/language/stats/median.c
@@ -197,7 +197,6 @@ median_execute (const struct dataset *ds,
 
 	  if ( var_is_value_missing (var, case_data (c, var), exclude))
 	    {
-	      case_unref (c);
 	      continue;
 	    }
 
@@ -211,7 +210,6 @@ median_execute (const struct dataset *ds,
 		  value_compare_3way (indep_val, &nst->val2, width) > 0
 		   )
 		{
-		  case_unref (c);
 		  continue;
 		}
 	    }
@@ -315,6 +313,7 @@ show_frequencies (const struct n_sample_test *nst, const struct results *results
   const int nr = column_headers + nst->n_vars * 2;
     
   struct tab_table *table = tab_create (nc, nr);
+  tab_set_format (table, RC_WEIGHT, wfmt);
 
   tab_headers (table, row_headers, 0, column_headers, 0);
 
@@ -375,10 +374,10 @@ show_frequencies (const struct n_sample_test *nst, const struct results *results
 	{
 	  const struct val_node *vn = rs->sorted_array[i];
 	  tab_double (table, row_headers + i, column_headers + v * 2,
-		      0, vn->gt, wfmt);
+		      0, vn->gt, NULL, RC_WEIGHT);
 
 	  tab_double (table, row_headers + i, column_headers + v * 2 + 1,
-		    0, vn->le, wfmt);
+		      0, vn->le, NULL, RC_WEIGHT);
 	}
     }
 
@@ -403,6 +402,7 @@ show_test_statistics (const struct n_sample_test *nst,
   const int nr = column_headers + nst->n_vars;
     
   struct tab_table *table = tab_create (nc, nr);
+  tab_set_format (table, RC_WEIGHT, wfmt);
 
   tab_headers (table, row_headers, 0, column_headers, 0);
 
@@ -440,19 +440,19 @@ show_test_statistics (const struct n_sample_test *nst,
 
 
       tab_double (table, row_headers + 0, column_headers + v,
-		  0, rs->n, wfmt);
+		  0, rs->n, NULL, RC_WEIGHT);
 
       tab_double (table, row_headers + 1, column_headers + v,
-		  0, rs->median, NULL);
+		  0, rs->median, NULL, RC_OTHER);
 
       tab_double (table, row_headers + 2, column_headers + v,
-		  0, rs->chisq, NULL);
+		  0, rs->chisq, NULL, RC_OTHER);
 
       tab_double (table, row_headers + 3, column_headers + v,
-		  0, df, wfmt);
+		  0, df, NULL, RC_WEIGHT);
 
       tab_double (table, row_headers + 4, column_headers + v,
-		  0, gsl_cdf_chisq_Q (rs->chisq, df), NULL);
+		  0, gsl_cdf_chisq_Q (rs->chisq, df), NULL, RC_PVALUE);
     }
   
   tab_submit (table);