[Distr-commits] r658 - branches/distr-2.3/pkg/distrMod/R

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

Author: ruckdeschel
Date: 2010-05-28 21:06:16 +0200 (Fri, 28 May 2010)
New Revision: 658

Modified:
   branches/distr-2.3/pkg/distrMod/R/SimpleL2ParamFamilies.R
Log:
restated L2-deriv and L2-deriv distribution s.t. it is computationally easier to treat

Modified: branches/distr-2.3/pkg/distrMod/R/SimpleL2ParamFamilies.R
===================================================================
--- branches/distr-2.3/pkg/distrMod/R/SimpleL2ParamFamilies.R	2010-05-28 18:35:12 UTC (rev 657)
+++ branches/distr-2.3/pkg/distrMod/R/SimpleL2ParamFamilies.R	2010-05-28 19:06:16 UTC (rev 658)
@@ -142,11 +142,11 @@
     L2deriv.fct <- function(param){
                    prob <- main(param)
                    fct <- function(x){}
-                   body(fct) <- substitute({ (size- (x+size)*prob)/(prob*(1-prob)) },
+                   body(fct) <- substitute({ (size/prob- x/(1-prob)) },
                                 list(size = size, prob = prob))
                    return(fct)}
     L2derivSymm <- FunSymmList(NonSymmetric()) 
-    L2derivDistr <- UnivarDistrList((size-(distribution+size)*prob)/(prob*(1-prob)))
+    L2derivDistr <- UnivarDistrList((size/prob- distribution/(1-prob)))
     L2derivDistrSymm <- DistrSymmList(NoSymmetry())
     FisherInfo.fct <- function(param){
                        prob <- main(param)