X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Fquick-cluster.c;h=e6987f4b10b5db503a799b66665a796665407a17;hb=970789e054086189cb8d83b8c80f6c10318bbeef;hp=10572cee5e260a8a1590c56742489586741f1053;hpb=3ec4ce83403f756f2c983ca2b5544cb1dcf9dfe0;p=pspp

diff --git a/src/language/stats/quick-cluster.c b/src/language/stats/quick-cluster.c
index 10572cee5e..e6987f4b10 100644
--- a/src/language/stats/quick-cluster.c
+++ b/src/language/stats/quick-cluster.c
@@ -227,11 +227,12 @@ kmeans_recalculate_centers (struct Kmeans *kmeans, const struct casereader *read
 	{
 	  const union value *val = case_data (c, qc->vars[v]);
 	  double x = val->f * weight;
+	  double curval;
 
 	  if ( var_is_value_missing (qc->vars[v], val, qc->exclude))
 	    continue;
 
-	  double curval = gsl_matrix_get (kmeans->centers, index, v);
+	  curval = gsl_matrix_get (kmeans->centers, index, v);
 	  gsl_matrix_set (kmeans->centers, index, v, curval + x);
 	}
       i++;
@@ -528,6 +529,10 @@ cmd_quick_cluster (struct lexer *lexer, struct dataset *ds)
 		{
 		  qc.exclude = MV_SYSTEM;
 		}
+	      else if (lex_match_id (lexer, "EXCLUDE"))
+		{
+		  qc.exclude = MV_ANY;
+		}
 	      else
 		goto error;
 	    }