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

Thu Jul 31 16:58:02 CEST 2008

```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),

```