[Distr-commits] r1313 - branches/distr-2.8/pkg/distrEx/R

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

Author: ruckdeschel
Date: 2019-03-11 12:36:47 +0100 (Mon, 11 Mar 2019)
New Revision: 1313

Modified:
   branches/distr-2.8/pkg/distrEx/R/GammaWeibullExpectation.R
Log:
distrEx: merged back change in distrEx::GammaWeibullExpectation.R from trunk into branches 2.8

Modified: branches/distr-2.8/pkg/distrEx/R/GammaWeibullExpectation.R
===================================================================
--- branches/distr-2.8/pkg/distrEx/R/GammaWeibullExpectation.R	2019-03-10 17:24:30 UTC (rev 1312)
+++ branches/distr-2.8/pkg/distrEx/R/GammaWeibullExpectation.R	2019-03-11 11:36:47 UTC (rev 1313)
@@ -25,9 +25,8 @@
                                   if(useApply){
                                      funy <- sapply(y,funwD)
                                      dim(funy) <- dim(x)
-                                  }else funy <- fun(y)
+                                  }else funy <- funwD(y)
                                   return(funy) }
-         mc <- match.call()
 
          if(is.null(low)) low <- -Inf
          if(is.null(upp)) upp <- Inf