X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Ffriedman.c;h=4a0201e6ac112b3ecfbd5bbbfc0b856424939a71;hb=50a07c54d38b3dc85db5c1318d67890e386710f9;hp=d5890e3fef737b3580f1049aa989424f55bb28e7;hpb=96933598f8938a216439e98f6758c8916d85873c;p=pspp-builds.git

diff --git a/src/language/stats/friedman.c b/src/language/stats/friedman.c
index d5890e3f..4a0201e6 100644
--- a/src/language/stats/friedman.c
+++ b/src/language/stats/friedman.c
@@ -157,7 +157,7 @@ friedman_execute (const struct dataset *ds,
 	      if ( run_length > 0)
 		{
 		  double t = run_length + 1;
-		  sigma_t += pow3 (t) - t;
+		  sigma_t += w * (pow3 (t) - t);
 		}
 	      run_length = 0;
 	    }
@@ -166,14 +166,13 @@ friedman_execute (const struct dataset *ds,
       if ( run_length > 0)
 	{
 	  double t = run_length + 1;
-	  sigma_t += pow3 (t) - t;
+	  sigma_t += w * (pow3 (t) - t );
 	}
 
       qsort (row, ft->n_vars, sizeof *row, cmp_posn);
 
       for (v = 0; v < ft->n_vars; ++v)
-	fr.rank_sum[v] += row[v].x;
-
+	fr.rank_sum[v] += row[v].x * w;
     }
   casereader_destroy (input);
   free (row);