[Distr-commits] r1230 - branches/distr-2.8/pkg/distrMod/R pkg/distrMod/R

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

Author: ruckdeschel
Date: 2018-07-30 14:25:01 +0200 (Mon, 30 Jul 2018)
New Revision: 1230

Modified:
   branches/distr-2.8/pkg/distrMod/R/mleCalc-methods.R
   pkg/distrMod/R/mleCalc-methods.R
Log:
[distrMod] in trunk & branch 2.8
fixed an error in mleCalc-methods.R: had to delete check.validity from argList (detected by Kornelius Rohmeyer)

Modified: branches/distr-2.8/pkg/distrMod/R/mleCalc-methods.R
===================================================================
--- branches/distr-2.8/pkg/distrMod/R/mleCalc-methods.R	2018-07-30 11:13:35 UTC (rev 1229)
+++ branches/distr-2.8/pkg/distrMod/R/mleCalc-methods.R	2018-07-30 12:25:01 UTC (rev 1230)
@@ -121,6 +121,7 @@
                   else  names(theta) <- names(main(ParamFamily))
                   distr.new <- try(ParamFamily at modifyParam(theta), silent = TRUE)
                   argList <- c(list(Data, distr.new), dots)
+                  argList$check.validity <- NULL
                   if(withthetaPar) argList <- c(argList, list(thetaPar = theta))
                   if(is(distr.new,"try.error")){
                       crit0 <- penalty

Modified: pkg/distrMod/R/mleCalc-methods.R
===================================================================
--- pkg/distrMod/R/mleCalc-methods.R	2018-07-30 11:13:35 UTC (rev 1229)
+++ pkg/distrMod/R/mleCalc-methods.R	2018-07-30 12:25:01 UTC (rev 1230)
@@ -121,6 +121,7 @@
                   else  names(theta) <- names(main(ParamFamily))
                   distr.new <- try(ParamFamily at modifyParam(theta), silent = TRUE)
                   argList <- c(list(Data, distr.new), dots)
+                  argList$check.validity <- NULL
                   if(withthetaPar) argList <- c(argList, list(thetaPar = theta))
                   if(is(distr.new,"try.error")){
                       crit0 <- penalty