[Distr-commits] r130 - pkg/distrMod/R

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

Author: ruckdeschel
Date: 2008-05-06 14:47:21 +0200 (Tue, 06 May 2008)
New Revision: 130

Modified:
   pkg/distrMod/R/MLEstimator.R
Log:
minimal error: is(MCE, "Estimate") is FALSE, need inherits()

Modified: pkg/distrMod/R/MLEstimator.R
===================================================================
--- pkg/distrMod/R/MLEstimator.R	2008-05-06 12:42:15 UTC (rev 129)
+++ pkg/distrMod/R/MLEstimator.R	2008-05-06 12:47:21 UTC (rev 130)
@@ -28,7 +28,7 @@
         return(res)
     }
 
-    if(is(par,"Estimate")) par <- par$estimate
+    if(inherits(par,"Estimate")) par <- par$estimate
     res <- MCEstimator(x = x, ParamFamily = ParamFamily, criterion = negLoglikelihood,
                 interval = interval, par = par, ...)
     names(res$criterion) <- "negative log-likelihood"