[Yuima-commits] r576 - pkg/yuima/R

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

Author: iacus
Date: 2017-01-23 07:44:41 +0100 (Mon, 23 Jan 2017)
New Revision: 576

Modified:
   pkg/yuima/R/CPoint.R
Log:
update

Modified: pkg/yuima/R/CPoint.R
===================================================================
--- pkg/yuima/R/CPoint.R	2017-01-23 05:17:46 UTC (rev 575)
+++ pkg/yuima/R/CPoint.R	2017-01-23 06:44:41 UTC (rev 576)
@@ -11,7 +11,9 @@
     tmp <- subsampling(yuima, grid=grid)
     mydots <- as.list(call)[-1]
     mydots$t <- NULL
-    do.call(qmle, args=mydots)
+    mydots$yuima <- tmp
+    tmp <- do.call("qmle", args=mydots)
+    tmp
 }
 
 qmleR <- function (yuima, t, ...)
@@ -28,7 +30,9 @@
     tmp <- subsampling(yuima, grid = grid)
     mydots <- as.list(call)[-1]
     mydots$t <- NULL
-    do.call(qmle, args=mydots)
+    mydots$yuima <- tmp
+    tmp <- do.call("qmle", args=mydots)
+    tmp
 }