[Distr-commits] r717 - pkg/distrMod/R

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

Author: stamats
Date: 2011-01-07 14:40:22 +0100 (Fri, 07 Jan 2011)
New Revision: 717

Modified:
   pkg/distrMod/R/SimpleL2ParamFamilies.R
Log:
I think it has to be digamma instead of trigamma - Peter?

Modified: pkg/distrMod/R/SimpleL2ParamFamilies.R
===================================================================
--- pkg/distrMod/R/SimpleL2ParamFamilies.R	2011-01-07 09:43:15 UTC (rev 716)
+++ pkg/distrMod/R/SimpleL2ParamFamilies.R	2011-01-07 13:40:22 UTC (rev 717)
@@ -274,7 +274,7 @@
                    fct1 <- function(x){}
                    fct1.2 <- function(x){}
                    fct2 <- function(x){}
-                   body(fct1) <- substitute({ trigamma(x+size)-trigamma(size)+log(prob.2)},
+                   body(fct1) <- substitute({ digamma(x+size)-digamma(size)+log(prob.2)},
                                 list(size = size.0, prob.2 = prob.0))
                    body(fct1.2)<- substitute({ (size/prob.2- x/(1-prob.2)) },
                                 list(size = size.0, prob.2 = prob.0))