[Distr-commits] r204 - branches/distr-2.0/pkg/distrMod/R

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

Author: stamats
Date: 2008-07-28 12:05:33 +0200 (Mon, 28 Jul 2008)
New Revision: 204

Modified:
   branches/distr-2.0/pkg/distrMod/R/MCEstimator.R
Log:
small bug corrected

Modified: branches/distr-2.0/pkg/distrMod/R/MCEstimator.R
===================================================================
--- branches/distr-2.0/pkg/distrMod/R/MCEstimator.R	2008-07-28 09:54:42 UTC (rev 203)
+++ branches/distr-2.0/pkg/distrMod/R/MCEstimator.R	2008-07-28 10:05:33 UTC (rev 204)
@@ -22,7 +22,7 @@
         crit <- res$objectiv
     }else{
         if(missing(par)) par <- main(ParamFamily)
-	if(inherits(par,"Estimate")) par <- par$estimate
+        if(is(par,"Estimate")) par <- estimate(par)
         res <- optim(par = par, fn = fun, Data = x, ParamFamily = ParamFamily, 
                       criterion = criterion, ...)
         theta <- res$par