[Robast-commits] r471 - in branches/robast-0.9/pkg/ROptEst: R man

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

Author: ruckdeschel
Date: 2012-05-20 23:00:19 +0200 (Sun, 20 May 2012)
New Revision: 471

Modified:
   branches/robast-0.9/pkg/ROptEst/R/roptest.R
   branches/robast-0.9/pkg/ROptEst/man/roptest.Rd
Log:
[ROptEst] roptest auf logscale-Aufruf von kStepEstimator erweitert

Modified: branches/robast-0.9/pkg/ROptEst/R/roptest.R
===================================================================
--- branches/robast-0.9/pkg/ROptEst/R/roptest.R	2012-05-20 20:41:42 UTC (rev 470)
+++ branches/robast-0.9/pkg/ROptEst/R/roptest.R	2012-05-20 21:00:19 UTC (rev 471)
@@ -10,7 +10,8 @@
                     IC.UpdateInKer = getRobAStBaseOption("IC.UpdateInKer"),
                     withICList = getRobAStBaseOption("withICList"),
                     withPICList = getRobAStBaseOption("withPICList"),
-                    na.rm = TRUE, initial.est.ArgList, ...){
+                    na.rm = TRUE, initial.est.ArgList, ...,
+                    scalename = "scale", withLogScale = TRUE){
     if(missing(verbose)|| is.null(verbose))
            verbose <- getRobAStBaseOption("all.verbose")
     es.call <- match.call()
@@ -102,7 +103,8 @@
     }
     res <- kStepEstimator(x, IC = ICstart, start = initial.est, steps = steps, useLast = useLast,
                           withUpdateInKer = withUpdateInKer, IC.UpdateInKer = IC.UpdateInKer,
-                          withICList = withICList, withPICList = withPICList, na.rm = na.rm)
+                          withICList = withICList, withPICList = withPICList, na.rm = na.rm,
+                          scalename = scalename , withLogScale = withLogScale)
     res at estimate.call <- es.call
     Infos <- matrix(c("roptest", 
                       paste(steps, "-step estimate for ", name(L2Fam), sep = "")),

Modified: branches/robast-0.9/pkg/ROptEst/man/roptest.Rd
===================================================================
--- branches/robast-0.9/pkg/ROptEst/man/roptest.Rd	2012-05-20 20:41:42 UTC (rev 470)
+++ branches/robast-0.9/pkg/ROptEst/man/roptest.Rd	2012-05-20 21:00:19 UTC (rev 471)
@@ -15,7 +15,8 @@
         IC.UpdateInKer = getRobAStBaseOption("IC.UpdateInKer"),
         withICList = getRobAStBaseOption("withICList"),
         withPICList = getRobAStBaseOption("withPICList"),
-        na.rm = TRUE, initial.est.ArgList, ...)
+        na.rm = TRUE, initial.est.ArgList, ...,
+        scalename = "scale", withLogScale = TRUE)
 }
 \arguments{
   \item{x}{ sample }
@@ -67,6 +68,10 @@
    is a function; this list by default already starts with two unnamed items,
    the sample \code{x}, and the model \code{L2Fam}.}
   \item{\dots}{ further arguments }
+  \item{scalename}{character; the name of the scale coordinate. }
+  \item{withLogScale}{logical; shall a scale component (if existing and found
+   with name \code{scalename}) be computed on log-scale and backtransformed
+   afterwards? This avoids crossing 0.}
 }
 \details{
   Computes the optimally robust estimator for a given L2 differentiable