[Distr-commits] r219 - branches/distr-2.0/pkg/distrMod/R

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

Author: stamats
Date: 2008-07-31 16:58:02 +0200 (Thu, 31 Jul 2008)
New Revision: 219

Modified:
   branches/distr-2.0/pkg/distrMod/R/L2GroupFamilies.R
Log:
minor bug corrected

Modified: branches/distr-2.0/pkg/distrMod/R/L2GroupFamilies.R
===================================================================
--- branches/distr-2.0/pkg/distrMod/R/L2GroupFamilies.R	2008-07-31 04:37:42 UTC (rev 218)
+++ branches/distr-2.0/pkg/distrMod/R/L2GroupFamilies.R	2008-07-31 14:58:02 UTC (rev 219)
@@ -206,10 +206,10 @@
                    fct1 <- function(x){}
                    fct2 <- function(x){}
                    body(fct1) <- substitute({ LogDeriv((x - loc)/scale)/scale },
-                                             list(loc = loc, scale = scale))
+                                             list(loc = mean, scale = sd))
                    body(fct2) <- substitute({ 
                         ((x - loc)/scale * LogDeriv((x - loc)/scale)-1)/scale },
-                                             list(loc = loc, scale = scale))
+                                             list(loc = mean, scale = sd))
                    return(list(fct1, fct2))}
 
     L2deriv <- EuclRandVarList(RealRandVariable(L2deriv.fct(param), 
@@ -311,10 +311,10 @@
                    fct1 <- function(x){}
                    fct2 <- function(x){}
                    body(fct1) <- substitute({ LogDeriv((x - loc)/scale)/scale },
-                                             list(loc = loc, scale = scale))
+                                             list(loc = mean, scale = sd))
                    body(fct2) <- substitute({ 
                         ((x - loc)/scale * LogDeriv((x - loc)/scale)-1)/scale },
-                                             list(loc = loc, scale = scale))
+                                             list(loc = mean, scale = sd))
                    return(list(fct1, fct2))}
 
     L2deriv <- EuclRandVarList(RealRandVariable(L2deriv.fct(param), 
@@ -417,10 +417,10 @@
                    fct1 <- function(x){}
                    fct2 <- function(x){}
                    body(fct1) <- substitute({ LogDeriv((x - loc)/scale)/scale },
-                                             list(loc = loc, scale = scale))
+                                             list(loc = mean, scale = sd))
                    body(fct2) <- substitute({ 
                         ((x - loc)/scale * LogDeriv((x - loc)/scale)-1)/scale },
-                                             list(loc = loc, scale = scale))
+                                             list(loc = mean, scale = sd))
                    return(list(fct1, fct2))}
 
     L2deriv <- EuclRandVarList(RealRandVariable(L2deriv.fct(param),