[Distr-commits] r389 - in branches/distr-2.1/pkg/distrMod: R chm

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

Author: ruckdeschel
Date: 2009-01-30 15:36:50 +0100 (Fri, 30 Jan 2009)
New Revision: 389

Modified:
   branches/distr-2.1/pkg/distrMod/R/L2GroupFamilies.R
   branches/distr-2.1/pkg/distrMod/chm/distrMod.chm
Log:
added mad.const to guarantee for mad-consistency in location scale model

Modified: branches/distr-2.1/pkg/distrMod/R/L2GroupFamilies.R
===================================================================
--- branches/distr-2.1/pkg/distrMod/R/L2GroupFamilies.R	2009-01-29 12:59:20 UTC (rev 388)
+++ branches/distr-2.1/pkg/distrMod/R/L2GroupFamilies.R	2009-01-30 14:36:50 UTC (rev 389)
@@ -309,6 +309,9 @@
         }
     }
 
+    mad.const <- 1/ if (is(distrSymm, "NoSymmetry")) 
+                        mad(centraldistribution) else q(centraldistribution)(.75)
+    
     param0 <- c(loc, scale)
     names(param0) <- locscalename
     if(missing(trafo))  {trafo <- diag(2)
@@ -316,8 +319,9 @@
                                                  locscalename)}
     param <- ParamFamParameter(name = "location and scale", main = param0,
                                trafo = trafo)
+    
     startPar <- function(x,...) {
-                   st <- c(median(x),mad(x))
+                   st <- c(median(x),mad(x, constant=mad.const))
                    names(st) <- locscalename
                    return(st)}
     makeOKPar <- function(param) {

Modified: branches/distr-2.1/pkg/distrMod/chm/distrMod.chm
===================================================================
(Binary files differ)