[Distr-commits] r391 - branches/distr-2.1/pkg/distr/R pkg/distr/R

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

Author: ruckdeschel
Date: 2009-01-31 12:23:35 +0100 (Sat, 31 Jan 2009)
New Revision: 391

Modified:
   branches/distr-2.1/pkg/distr/R/Convpow.r
   pkg/distr/R/Convpow.r
Log:
argh: bugfix of bugfix ...

Modified: branches/distr-2.1/pkg/distr/R/Convpow.r
===================================================================
--- branches/distr-2.1/pkg/distr/R/Convpow.r	2009-01-31 11:17:26 UTC (rev 390)
+++ branches/distr-2.1/pkg/distr/R/Convpow.r	2009-01-31 11:23:35 UTC (rev 391)
@@ -66,7 +66,7 @@
             px.u <- pfun(x + 0.5*h, lower.tail = FALSE)
             qfun <- .makeQNew(x + 0.5*h, px.l, px.u, .notwithLArg(D1), yL, yR)
 
-            rfun = function(n) colSums(matrix(r(D1)(n*N), ncol=N))
+            rfun = function(n) colSums(matrix(r(D1)(n*N), ncol=n))
 
             object <- new("AbscontDistribution", r = rfun, d = dfun, p = pfun,
                        q = qfun, .withArith = TRUE, .withSim = FALSE)

Modified: pkg/distr/R/Convpow.r
===================================================================
--- pkg/distr/R/Convpow.r	2009-01-31 11:17:26 UTC (rev 390)
+++ pkg/distr/R/Convpow.r	2009-01-31 11:23:35 UTC (rev 391)
@@ -66,7 +66,7 @@
             px.u <- pfun(x + 0.5*h, lower.tail = FALSE)
             qfun <- .makeQNew(x + 0.5*h, px.l, px.u, .notwithLArg(D1), yL, yR)
 
-            rfun = function(n) colSums(matrix(r(D1)(n*N), ncol=N))
+            rfun = function(n) colSums(matrix(r(D1)(n*N), ncol=n))
 
             object <- new("AbscontDistribution", r = rfun, d = dfun, p = pfun,
                        q = qfun, .withArith = TRUE, .withSim = FALSE)