X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Ffriedman.c;h=5d476fab2c080e88d234f8f9e865334d478cf330;hb=b92e8417c7b44c8ce39829dca4eb8ab26f8b5494;hp=9ea3cbc516aec69bfd91b4cba019e0859afa13f6;hpb=5cab4cf3322f29c0ed7134d23740e07382914f20;p=pspp

diff --git a/src/language/stats/friedman.c b/src/language/stats/friedman.c
index 9ea3cbc516..5d476fab2c 100644
--- a/src/language/stats/friedman.c
+++ b/src/language/stats/friedman.c
@@ -101,7 +101,7 @@ friedman_execute (const struct dataset *ds,
   bool warn = true;
 
   double sigma_t = 0.0;
-  struct datum *row = xcalloc (ost->n_vars, sizeof *row);
+  struct datum *row = XCALLOC (ost->n_vars,  struct datum);
   double rsq;
   struct friedman fr;
   fr.rank_sum = xcalloc (ost->n_vars, sizeof *fr.rank_sum);
@@ -139,7 +139,7 @@ friedman_execute (const struct dataset *ds,
 	{
 	  double x = row[v].x;
 	  /* Replace value by the Rank */
-	  if ( prev_x == x)
+	  if (prev_x == x)
 	    {
 	      /* Deal with ties */
 	      int i;
@@ -155,7 +155,7 @@ friedman_execute (const struct dataset *ds,
 	  else
 	    {
 	      row[v].x = v + 1;
-	      if ( run_length > 0)
+	      if (run_length > 0)
 		{
 		  double t = run_length + 1;
 		  sigma_t += w * (pow3 (t) - t);
@@ -164,10 +164,10 @@ friedman_execute (const struct dataset *ds,
 	    }
 	  prev_x = x;
 	}
-      if ( run_length > 0)
+      if (run_length > 0)
 	{
 	  double t = run_length + 1;
-	  sigma_t += w * (pow3 (t) - t );
+	  sigma_t += w * (pow3 (t) - t);
 	}
 
       qsort (row, ost->n_vars, sizeof *row, cmp_posn);
@@ -186,14 +186,14 @@ friedman_execute (const struct dataset *ds,
 
   rsq = numerator;
 
-  numerator *= 12.0 / (fr.cc * ost->n_vars * ( ost->n_vars + 1));
-  numerator -= 3 * fr.cc * ( ost->n_vars + 1);
+  numerator *= 12.0 / (fr.cc * ost->n_vars * (ost->n_vars + 1));
+  numerator -= 3 * fr.cc * (ost->n_vars + 1);
 
-  denominator = 1 - sigma_t / ( fr.cc * ost->n_vars * ( pow2 (ost->n_vars) - 1));
+  denominator = 1 - sigma_t / (fr.cc * ost->n_vars * (pow2 (ost->n_vars) - 1));
 
   fr.chi_sq = numerator / denominator;
 
-  if ( ft->kendalls_w)
+  if (ft->kendalls_w)
     {
       fr.w = 12 * rsq ;
       fr.w -= 3 * pow2 (fr.cc) *