[Robast-commits] r204 - pkg/ROptEst/R

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

Author: stamats
Date: 2008-11-03 07:32:29 +0100 (Mon, 03 Nov 2008)
New Revision: 204

Modified:
   pkg/ROptEst/R/roptest.R
Log:
minor modification to keep name of parameter

Modified: pkg/ROptEst/R/roptest.R
===================================================================
--- pkg/ROptEst/R/roptest.R	2008-11-03 06:32:15 UTC (rev 203)
+++ pkg/ROptEst/R/roptest.R	2008-11-03 06:32:29 UTC (rev 204)
@@ -55,7 +55,7 @@
                                             startPar = startPar, ...)
     if(is(initial.est, "Estimate")) initial.est <- estimate(initial.est)
     newParam <- param(L2Fam)
-    main(newParam) <- initial.est
+    main(newParam)[] <- initial.est
     L2FamStart <- modifyModel(L2Fam, newParam)
     if(is.matrix(x))
         sqrtn <- sqrt(ncol(x))