[Robast-commits] r154 - branches/robast-0.6/pkg/ROptEst/R

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

Author: stamats
Date: 2008-08-07 15:35:16 +0200 (Thu, 07 Aug 2008)
New Revision: 154

Modified:
   branches/robast-0.6/pkg/ROptEst/R/roptest.R
Log:
removed redundant application of estimate

Modified: branches/robast-0.6/pkg/ROptEst/R/roptest.R
===================================================================
--- branches/robast-0.6/pkg/ROptEst/R/roptest.R	2008-08-07 13:32:43 UTC (rev 153)
+++ branches/robast-0.6/pkg/ROptEst/R/roptest.R	2008-08-07 13:35:16 UTC (rev 154)
@@ -51,8 +51,8 @@
     }
 
     if(missing(initial.est))
-        initial.est <- estimate(MDEstimator(x = x, ParamFamily = L2Fam, distance = distance,
-                                            startPar = startPar, ...))
+        initial.est <- MDEstimator(x = x, ParamFamily = L2Fam, distance = distance,
+                                            startPar = startPar, ...)
     if(is(initial.est, "Estimate")) initial.est <- estimate(initial.est)
     newParam <- param(L2Fam)
     main(newParam) <- initial.est