[Robast-commits] r352 - branches/robast-0.7/pkg/RobAStBase/R

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

Author: ruckdeschel
Date: 2009-08-26 04:32:38 +0200 (Wed, 26 Aug 2009)
New Revision: 352

Modified:
   branches/robast-0.7/pkg/RobAStBase/R/oneStepEstimator.R
Log:
and yet another small change ... to eliminate non-wanted dim-attribute

Modified: branches/robast-0.7/pkg/RobAStBase/R/oneStepEstimator.R
===================================================================
--- branches/robast-0.7/pkg/RobAStBase/R/oneStepEstimator.R	2009-08-26 02:26:25 UTC (rev 351)
+++ branches/robast-0.7/pkg/RobAStBase/R/oneStepEstimator.R	2009-08-26 02:32:38 UTC (rev 352)
@@ -40,6 +40,9 @@
 
 
         res <- start.val + rowMeans(evalIC(IC, x0), na.rm = na.rm)
+        if(!is.null(dim(res))) nms <- colnames(res)
+        dim(res) <- NULL
+        if(is.null(names(res))) names(res) <- nms
         Infos <- matrix(c("oneStepEstimator", "1-step estimate"), ncol = 2)
         colnames(Infos) <- c("method", "message")
         asVar <- NULL