From noreply at r-forge.r-project.org  Wed Oct  8 16:21:29 2025
From: noreply at r-forge.r-project.org (noreply at r-forge.r-project.org)
Date: Wed,  8 Oct 2025 16:21:29 +0200 (CEST)
Subject: [Distr-commits] r1511 - in branches/distr-2.9/pkg: distr/inst
 distrEx/R
Message-ID: <20251008142129.1F28118122B@r-forge.r-project.org>

Author: ruckdeschel
Date: 2025-10-08 16:21:28 +0200 (Wed, 08 Oct 2025)
New Revision: 1511

Modified:
   branches/distr-2.9/pkg/distr/inst/NEWS
   branches/distr-2.9/pkg/distrEx/R/Expectation.R
Log:
[distr] devel: fixed a glitch in E-method for signature(Gammad,missing,missing)

Modified: branches/distr-2.9/pkg/distr/inst/NEWS
===================================================================
--- branches/distr-2.9/pkg/distr/inst/NEWS	2025-05-06 19:14:58 UTC (rev 1510)
+++ branches/distr-2.9/pkg/distr/inst/NEWS	2025-10-08 14:21:28 UTC (rev 1511)
@@ -13,6 +13,9 @@
 under the hood:
 + adapted reference output for new startupmsg
 
+bug fixes
++ fixed a glitch in E-method for signature(Gammad,missing,missing)
+
 ##############
 v 2.9.6
 ##############

Modified: branches/distr-2.9/pkg/distrEx/R/Expectation.R
===================================================================
--- branches/distr-2.9/pkg/distrEx/R/Expectation.R	2025-05-06 19:14:58 UTC (rev 1510)
+++ branches/distr-2.9/pkg/distrEx/R/Expectation.R	2025-10-08 14:21:28 UTC (rev 1511)
@@ -730,7 +730,7 @@
         return(ret.v)
     }else{
       mc <- match.call()
-      res <- E(object, fun = function(x)1, low=low, upp=upp, ..., diagnostic = diagnostic)
+      res <- E(object, fun = function(x)x, low=low, upp=upp, ..., diagnostic = diagnostic)
 
       if(diagnostic){
          diagn <- attr(res, "diagnostic")