[Distr-commits] r663 - branches/distr-2.3/pkg/distrEx/R

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

Author: horbenko
Date: 2010-07-09 16:40:07 +0200 (Fri, 09 Jul 2010)
New Revision: 663

Modified:
   branches/distr-2.3/pkg/distrEx/R/Expectation.R
Log:
Small bug in Expectation.R was found 

Modified: branches/distr-2.3/pkg/distrEx/R/Expectation.R
===================================================================
--- branches/distr-2.3/pkg/distrEx/R/Expectation.R	2010-07-09 14:00:49 UTC (rev 662)
+++ branches/distr-2.3/pkg/distrEx/R/Expectation.R	2010-07-09 14:40:07 UTC (rev 663)
@@ -874,7 +874,7 @@
         if(!is.null(dots$useApply)) useApply <- dots$useApply
         dots.withoutUseApply$useApply <- NULL
         integrand <- function(x, dfun, ...){   di <- dim(x)
-                                               y <- q(object)##quantile transformation
+                                               y <- q(object)(x)##quantile transformation
                                                if(useApply){
                                                     funy <- sapply(y,fun, ...)
                                                     dim(y) <- di