[Vinecopula-commits] r139 - pkg/src

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

Author: tnagler
Date: 2015-09-21 17:01:39 +0200 (Mon, 21 Sep 2015)
New Revision: 139

Modified:
   pkg/src/likelihood.c
Log:
* fix typo in C code of Frank density

Modified: pkg/src/likelihood.c
===================================================================
--- pkg/src/likelihood.c	2015-09-17 18:11:04 UTC (rev 138)
+++ pkg/src/likelihood.c	2015-09-21 15:01:39 UTC (rev 139)
@@ -919,7 +919,7 @@
     {
         for(j=0;j<*n;j++)
         {
-            if (fabs(*theta) < 10) {
+            if (fabs(*theta) < 1e-10) {
                 ll = 0;
             } else {
                 dat[0] = u[j]; dat[1] = v[j];