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

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

Author: ruckdeschel
Date: 2009-01-31 12:17:26 +0100 (Sat, 31 Jan 2009)
New Revision: 390

Modified:
   branches/distr-2.1/pkg/distr/R/Convpow.r
   pkg/distr/R/Convpow.r
Log:
fixed a bug in convpow-method for AbscontDistribution

Modified: branches/distr-2.1/pkg/distr/R/Convpow.r
===================================================================
--- branches/distr-2.1/pkg/distr/R/Convpow.r	2009-01-30 14:36:50 UTC (rev 389)
+++ branches/distr-2.1/pkg/distr/R/Convpow.r	2009-01-31 11:17:26 UTC (rev 390)
@@ -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-30 14:36:50 UTC (rev 389)
+++ pkg/distr/R/Convpow.r	2009-01-31 11:17:26 UTC (rev 390)
@@ -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)