diff options
| author | Pjotr Prins | 2017-08-22 07:56:07 +0000 |
|---|---|---|
| committer | Pjotr Prins | 2017-08-22 08:01:50 +0000 |
| commit | 99527865c00b74a3a48daa2e1e5eb7c71bd861b5 (patch) | |
| tree | 313f36729cc5f0e860d4c73f26ddbee5cff0bf4f /src/lapack.h | |
| parent | c7cbd8b2d5a06b7b86733719315f9da1638cb32e (diff) | |
| download | pangemma-99527865c00b74a3a48daa2e1e5eb7c71bd861b5.tar.gz | |
Fixes matrix checks - looking saner now
- Matrix checks as described in https://github.com/genetics-statistics/GEMMA/issues/72 - introduces -strict switch which will exit on certain conditions - zero small eigenvalues in EigenDecomp_Zeroed which also checks for negative values - commented out float versions of functions in lapack.cpp (pre-removal) - reverted on disabled regression tests (GEMMA shows its previous behaviour now)
Diffstat (limited to 'src/lapack.h')
| -rw-r--r-- | src/lapack.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/lapack.h b/src/lapack.h index ff02b96..9596667 100644 --- a/src/lapack.h +++ b/src/lapack.h @@ -41,6 +41,8 @@ void lapack_eigen_symmv(gsl_matrix *A, gsl_vector *eval, gsl_matrix *evec, double EigenDecomp(gsl_matrix *G, gsl_matrix *U, gsl_vector *eval, const size_t flag_largematrix); +double EigenDecomp_Zeroed(gsl_matrix *G, gsl_matrix *U, gsl_vector *eval, + const size_t flag_largematrix); double EigenDecomp(gsl_matrix_float *G, gsl_matrix_float *U, gsl_vector_float *eval, const size_t flag_largematrix); |
