[Distr-commits] r1270 - in branches/distr-2.8/pkg/distrMod: R inst

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

Author: ruckdeschel
Date: 2018-08-11 00:45:52 +0200 (Sat, 11 Aug 2018)
New Revision: 1270

Modified:
   branches/distr-2.8/pkg/distrMod/R/SimpleL2ParamFamilies.R
   branches/distr-2.8/pkg/distrMod/inst/NEWS
Log:
[distrMod] branch 2.8
+ (robust) start (search) parameters for Poisson family 

Modified: branches/distr-2.8/pkg/distrMod/R/SimpleL2ParamFamilies.R
===================================================================
--- branches/distr-2.8/pkg/distrMod/R/SimpleL2ParamFamilies.R	2018-08-10 22:11:43 UTC (rev 1269)
+++ branches/distr-2.8/pkg/distrMod/R/SimpleL2ParamFamilies.R	2018-08-10 22:45:52 UTC (rev 1270)
@@ -82,7 +82,7 @@
                                trafo = trafo)
     modifyParam <- function(theta){ Pois(lambda = theta) }
     props <- character(0)
-    startPar <- function(x,...) c(.Machine$double.eps,max(x))
+    startPar <- function(x,...) c(.Machine$double.eps,median(x)+10*max(mad(x),1))
     makeOKPar <- function(param) {if(param<=0) return(.Machine$double.eps)
                                   return(param)}
     L2deriv.fct <- function(param){

Modified: branches/distr-2.8/pkg/distrMod/inst/NEWS
===================================================================
--- branches/distr-2.8/pkg/distrMod/inst/NEWS	2018-08-10 22:11:43 UTC (rev 1269)
+++ branches/distr-2.8/pkg/distrMod/inst/NEWS	2018-08-10 22:45:52 UTC (rev 1270)
@@ -102,6 +102,7 @@
   coerce method produces the pIC of the MDE by means of .CvMMDCovariance[WithMux]
 + new subclasses "MLEstimate", "MDEstimate", "CvMMDEstimate" for internal method dispatch  
 + (robust) start parameters for Nbinom family with two parameters
++ (robust) start (search) parameters for Poisson family 
 
 
 ##############