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

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

Author: ruckdeschel
Date: 2018-08-10 02:00:00 +0200 (Fri, 10 Aug 2018)
New Revision: 1263

Modified:
   branches/distr-2.8/pkg/distrMod/R/internalMleCalc.R
Log:
[distrMod] branch 2.8: bugfix failed to be commited last time 

Modified: branches/distr-2.8/pkg/distrMod/R/internalMleCalc.R
===================================================================
--- branches/distr-2.8/pkg/distrMod/R/internalMleCalc.R	2018-08-09 23:29:20 UTC (rev 1262)
+++ branches/distr-2.8/pkg/distrMod/R/internalMleCalc.R	2018-08-10 00:00:00 UTC (rev 1263)
@@ -104,8 +104,10 @@
               as0 <- if(is(asvar.try,"try-error")) NULL else asvar.try
               return(as0)
            }
-           asvar <- substitute(do.call(asfct, args=c(list(PFam0, param0, ...))),
-                               list(asfct=asvar.tfct, PFam0=PFam, param0=param))
+           dots.now <- list(...)
+           asvar <- substitute(do.call(asfct, args=c(list(PFam0, param0),dots.s)),
+                               list(asfct=asvar.tfct, PFam0=PFam, param0=param,
+                                    dots.s = dots.now))
        }
 #    print(eval(asvar))
     if(.withEvalAsVar) asvar <- eval(asvar)