[Distr-commits] r409 - branches/distr-2.1/pkg/distr/inst/doc branches/distr-2.1/pkg/distrEx/R pkg/distrEx/R

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

Author: stamats
Date: 2009-03-06 12:36:44 +0100 (Fri, 06 Mar 2009)
New Revision: 409

Modified:
   branches/distr-2.1/pkg/distr/inst/doc/newDistributions.pdf
   branches/distr-2.1/pkg/distrEx/R/Expectation.R
   pkg/distrEx/R/Expectation.R
Log:
bug corrected in E for Hyper (thanks to Jay G. Kerns!) ...

Modified: branches/distr-2.1/pkg/distr/inst/doc/newDistributions.pdf
===================================================================
(Binary files differ)

Modified: branches/distr-2.1/pkg/distrEx/R/Expectation.R
===================================================================
--- branches/distr-2.1/pkg/distrEx/R/Expectation.R	2009-02-27 22:54:43 UTC (rev 408)
+++ branches/distr-2.1/pkg/distrEx/R/Expectation.R	2009-03-06 11:36:44 UTC (rev 409)
@@ -378,7 +378,7 @@
                          fun = "missing", 
                          cond = "missing"),
     function(object){
-        return(k(object)*n(object)/(m(object)+n(object)))
+        return(k(object)*m(object)/(m(object)+n(object)))
     })
 
 setMethod("E", signature(object = "Logis", 

Modified: pkg/distrEx/R/Expectation.R
===================================================================
--- pkg/distrEx/R/Expectation.R	2009-02-27 22:54:43 UTC (rev 408)
+++ pkg/distrEx/R/Expectation.R	2009-03-06 11:36:44 UTC (rev 409)
@@ -378,7 +378,7 @@
                          fun = "missing", 
                          cond = "missing"),
     function(object, fun, cond){
-        return(k(object)*n(object)/(m(object)+n(object)))
+        return(k(object)*m(object)/(m(object)+n(object)))
     })
 
 setMethod("E", signature(object = "Logis",