X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fmath%2Flinreg.c;h=a50aa7d8f105aaff4a6921ee84a88539956d3122;hb=4398d3a1a881c6cafaeb0cbd11f56bd51d904c51;hp=48db78a82c5af8340a017f2e97da25dba1c0c6c5;hpb=f0c778c7a030530634fa637f1b2f9fc543ef82e4;p=pspp diff --git a/src/math/linreg.c b/src/math/linreg.c index 48db78a82c..a50aa7d8f1 100644 --- a/src/math/linreg.c +++ b/src/math/linreg.c @@ -24,7 +24,6 @@ #include #include #include -#include #include #include #include @@ -661,15 +660,18 @@ void pspp_linreg_set_indep_variable_mean (pspp_linreg_cache *c, const struct var only variables in the model are in the covariance matrix. */ static struct design_matrix * -rearrange_covariance_matrix (const struct design_matrix *cov, pspp_linreg_cache *c) +rearrange_covariance_matrix (const struct covariance_matrix *cm, pspp_linreg_cache *c) { const struct variable **model_vars; + struct design_matrix *cov; struct design_matrix *result; size_t *permutation; size_t i; size_t j; size_t k; + assert (cm != NULL); + cov = covariance_to_design (cm); assert (cov != NULL); assert (c != NULL); assert (cov->m->size1 > 0); @@ -720,7 +722,7 @@ rearrange_covariance_matrix (const struct design_matrix *cov, pspp_linreg_cache set CACHE->N_COEFFS. */ void -pspp_linreg_with_cov (const struct design_matrix *full_cov, +pspp_linreg_with_cov (const struct covariance_matrix *full_cov, pspp_linreg_cache * cache) { struct design_matrix *cov; @@ -732,6 +734,6 @@ pspp_linreg_with_cov (const struct design_matrix *full_cov, cache_init (cache); reg_sweep (cov->m); post_sweep_computations (cache, cov, cov->m); - covariance_matrix_destroy (cov); + design_matrix_destroy (cov); }