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

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

Author: ruckdeschel
Date: 2018-08-16 13:50:49 +0200 (Thu, 16 Aug 2018)
New Revision: 1281

Modified:
   branches/distr-2.8/pkg/distrEx/R/GammaWeibullExpectation.R
Log:
[distrEx] branch 2.8.0 
in .qtlIntegrate forgot to pass over argument diagnostic to left tail and center 

Modified: branches/distr-2.8/pkg/distrEx/R/GammaWeibullExpectation.R
===================================================================
--- branches/distr-2.8/pkg/distrEx/R/GammaWeibullExpectation.R	2018-08-16 11:05:27 UTC (rev 1280)
+++ branches/distr-2.8/pkg/distrEx/R/GammaWeibullExpectation.R	2018-08-16 11:50:49 UTC (rev 1281)
@@ -72,7 +72,7 @@
                     lower = low, upper = min(0.02, upp),
                     order = fac.L * .order, subdivisions = fac.L * .subdivisions,
                     rel.tol = rel.tol, stop.on.error = FALSE,
-                    distr = object, dfun = dunif), dots.withoutUseApply))
+                    distr = object, dfun = dunif, diagnostic = diagnostic), dots.withoutUseApply))
                if(diagnostic) diagn$leftTail <- attr(intV.l,"diagnostic")
             }
          }
@@ -80,7 +80,7 @@
                     lower = low.m, upper = upp.m,
                     order = fac.M * .order, subdivisions = fac.M * .subdivisions,
                     rel.tol = rel.tol, stop.on.error = FALSE,
-                    distr = object, dfun = dunif), dots.withoutUseApply))
+                    distr = object, dfun = dunif, diagnostic = diagnostic), dots.withoutUseApply))
          if(diagnostic) diagn$main <- attr(intV.m,"diagnostic")
 
          int <- intV.l+intV.m+intV.u