[Distr-commits] r487 - branches/distr-2.2/pkg/distrMod/R

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

Author: stamats
Date: 2009-06-29 19:57:26 +0200 (Mon, 29 Jun 2009)
New Revision: 487

Modified:
   branches/distr-2.2/pkg/distrMod/R/internalMleCalc.R
Log:
minor bug corrected

Modified: branches/distr-2.2/pkg/distrMod/R/internalMleCalc.R
===================================================================
--- branches/distr-2.2/pkg/distrMod/R/internalMleCalc.R	2009-06-29 16:17:12 UTC (rev 486)
+++ branches/distr-2.2/pkg/distrMod/R/internalMleCalc.R	2009-06-29 17:57:26 UTC (rev 487)
@@ -73,7 +73,7 @@
           {warning("Optimization for MCE did not give a valid result. You could try to use argument 'penalty'.")
            theta <- as.numeric(rep(NA, lnx+lmx))
            res <- new("MCEstimate", name = est.name, estimate = theta,
-                       criterion = crit, Infos = Infos, samplesize = samplesize,
+                       criterion = crit, Infos = Infos, samplesize = res$samplesize,
                        nuis.idx = nuis.idx, estimate.call = call,
                        trafo = traf0)
            return(res)}