X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fstats%2Fglm.c;h=f0311f8249439edff1896af75adb689eaf1b1926;hb=ff3d8d9bdcd9133f46918f39bfcef05a07628923;hp=fd5870c137d95f1d72aee239136ff497206abf76;hpb=4fd6cfba4b3c066da520d4b1c7a7f64d9fd19d3f;p=pspp-builds.git

diff --git a/src/language/stats/glm.c b/src/language/stats/glm.c
index fd5870c1..f0311f82 100644
--- a/src/language/stats/glm.c
+++ b/src/language/stats/glm.c
@@ -416,8 +416,7 @@ get_ssq (struct covariance *cov, gsl_vector *ssq, const struct glm_spec *cmd)
 	}
 
       model_cov = gsl_matrix_alloc (cm->size1 - n_dropped_model, cm->size2 - n_dropped_model);
-      gsl_matrix_set (model_cov, 0, 0, gsl_matrix_get (cm, 0, 0));
-      submodel_cov = gsl_matrix_calloc (cm->size1 - n_dropped_submodel, cm->size2 - n_dropped_submodel);
+      submodel_cov = gsl_matrix_alloc (cm->size1 - n_dropped_submodel, cm->size2 - n_dropped_submodel);
 
       fill_submatrix (cm, model_cov,    model_dropped);
       fill_submatrix (cm, submodel_cov, submodel_dropped);