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

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

Author: ruckdeschel
Date: 2016-09-04 13:11:42 +0200 (Sun, 04 Sep 2016)
New Revision: 1119

Modified:
   pkg/distrMod/R/MDEstimator.R
Log:
distrMod: fixed an issue with MDEstimator and validParameter

Modified: pkg/distrMod/R/MDEstimator.R
===================================================================
--- pkg/distrMod/R/MDEstimator.R	2016-09-04 11:08:59 UTC (rev 1118)
+++ pkg/distrMod/R/MDEstimator.R	2016-09-04 11:11:42 UTC (rev 1119)
@@ -24,8 +24,9 @@
 
     if(paramDepDist) dots$thetaPar <-NULL
 
+    distanceFctWithoutVal <- function(e1,e2,check.validity=NULL,...) distance(e1,e2,...)
     ## manipulation of the arg list to method mceCalc
-    argList <- c(list(x = x, PFam = ParamFamily, criterion = distance,
+    argList <- c(list(x = x, PFam = ParamFamily, criterion = distanceFctWithoutVal,
                    startPar = startPar, penalty = penalty, 
                    crit.name = dist.name, withthetaPar = paramDepDist))