[Vinecopula-commits] r130 - pkg/R

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

Author: tnagler
Date: 2015-09-10 17:54:36 +0200 (Thu, 10 Sep 2015)
New Revision: 130

Modified:
   pkg/R/BiCopPar2Tau.r
Log:
* set BiCopPar2Tau(5, 0, check.pars = FALSE) = 0

Modified: pkg/R/BiCopPar2Tau.r
===================================================================
--- pkg/R/BiCopPar2Tau.r	2015-08-28 17:01:07 UTC (rev 129)
+++ pkg/R/BiCopPar2Tau.r	2015-09-10 15:54:36 UTC (rev 130)
@@ -58,7 +58,7 @@
     } else if (family == 4 || family == 14) {
         tau <- 1 - 1/par
     } else if (family == 5) {
-        tau <- 1 - 4/par + 4/par * debye1(par)
+        tau <- if (par == 0) 0 else 1 - 4/par + 4/par * debye1(par)
     } else if (family == 6 || family == 16) {
         # tau = 1 + 4/par^2 * integrate(function(x) log(x)*x*(1-x)^(2*(1-par)/par), 0,
         # 1)$value