[Genabel-commits] r1050 - pkg/OmicABEL/src

[noreply at r-forge.r-project.org]

Author: dfabregat
Date: 2012-12-13 12:08:08 +0100 (Thu, 13 Dec 2012)
New Revision: 1050

Modified:
   pkg/OmicABEL/src/fgls_eigen.c
Log:
Linear depedency of XR_i with XL signaled as NaNs in the output.
No need to print a message and abort.


Modified: pkg/OmicABEL/src/fgls_eigen.c
===================================================================
--- pkg/OmicABEL/src/fgls_eigen.c	2012-12-12 10:54:03 UTC (rev 1049)
+++ pkg/OmicABEL/src/fgls_eigen.c	2012-12-13 11:08:08 UTC (rev 1050)
@@ -356,9 +356,6 @@
 								  dpotrf_(LOWER, &int_p, oneV, &int_p, &info);
 								  if (info != 0)
 								  {
-									  char err[STR_BUFFER_SIZE];
-									  snprintf(err, STR_BUFFER_SIZE, "dpotrf failed (info: %d)", info);
-									  error_msg(err, 1);
 										for ( k = 0; k < (p+ p*(p+1)/2); k++ )
 											Bij[k] = 0.0/0.0; //nan("char-sequence");
 										continue;