[Vinecopula-commits] r128 - pkg/R

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

Author: tnagler
Date: 2015-08-24 22:10:56 +0200 (Mon, 24 Aug 2015)
New Revision: 128

Modified:
   pkg/R/BiCopEst.r
Log:
* increased upper limit for uniroot in Joe.itau.JJ

Modified: pkg/R/BiCopEst.r
===================================================================
--- pkg/R/BiCopEst.r	2015-08-24 20:04:45 UTC (rev 127)
+++ pkg/R/BiCopEst.r	2015-08-24 20:10:56 UTC (rev 128)
@@ -386,7 +386,7 @@
         
         v <- uniroot(function(x) tau - tauF(x),
                      lower = 1, 
-                     upper = 500,
+                     upper = 5e5,
                      tol = .Machine$double.eps^0.5)$root
         return(v)
     }