[Distr-commits] r684 - branches/distr-2.3/pkg/distr/R

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

Author: ruckdeschel
Date: 2010-10-19 15:38:24 +0200 (Tue, 19 Oct 2010)
New Revision: 684

Modified:
   branches/distr-2.3/pkg/distr/R/igamma.R
Log:
distr: drastically reduced memory needed by smaller grid for igamma 

Modified: branches/distr-2.3/pkg/distr/R/igamma.R
===================================================================
--- branches/distr-2.3/pkg/distr/R/igamma.R	2010-10-18 18:26:55 UTC (rev 683)
+++ branches/distr-2.3/pkg/distr/R/igamma.R	2010-10-19 13:38:24 UTC (rev 684)
@@ -1,7 +1,7 @@
 ### defines the inverse function of digamma called igamma for simplicity
 
 ## an extensive grid of x-values
-.xg <- sort(c(10^(-70:-1),qexp(unique(pmin(seq(0,1,length=5e5)+1e-10,1-1e-10))),qcauchy(seq(0.999,1-1e-10,length=5e5))))
+.xg <- sort(c(10^(-70:-1),qexp(unique(pmin(seq(0,1,length=5e3)+1e-10,1-1e-10))),qcauchy(seq(0.999,1-1e-10,length=5e3))))
 .dxg <- digamma(.xg)
 igamma <- approxfun(.dxg,.xg)
 rm(.xg,.dxg)