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

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

Author: lorenzo
Date: 2021-05-12 14:22:15 +0200 (Wed, 12 May 2021)
New Revision: 754

Modified:
   pkg/yuima/R/AuxMethodforPPR.R
   pkg/yuima/R/simulateForPpr.R
Log:
Fixed Bugs

Modified: pkg/yuima/R/AuxMethodforPPR.R
===================================================================
--- pkg/yuima/R/AuxMethodforPPR.R	2021-03-15 05:09:16 UTC (rev 753)
+++ pkg/yuima/R/AuxMethodforPPR.R	2021-05-12 12:22:15 UTC (rev 754)
@@ -678,7 +678,8 @@
                         jump.coeff = dummyJump1, jump.variable = yuimaPPR at model@jump.variable,
                         measure = list(df=yuimaPPR at model@measure$df),
                         measure.type = meas.type,
-                        solve.variable = yuimaPPR at model@solve.variable,
+                        solve.variable = yuimaPPR at model@state.variable,
+                        #solve.variable = yuimaPPR at model@solve.variable,
                         state.variable = yuimaPPR at model@state.variable)
       myYuima <- setYuima(data = NewData, model = myMod)
       resCov <- qmleLevy(yuima = myYuima,

Modified: pkg/yuima/R/simulateForPpr.R
===================================================================
--- pkg/yuima/R/simulateForPpr.R	2021-03-15 05:09:16 UTC (rev 753)
+++ pkg/yuima/R/simulateForPpr.R	2021-05-12 12:22:15 UTC (rev 754)
@@ -146,7 +146,7 @@
       dum.Ker <- gsub(my.countOld, my.countNew, x = dum.Ker, fixed=TRUE)
         
       my.countOld <- paste0(covariates[i] ,"[",Kern.Fun at variable.Integral@upper.var,"]")
-      my.countNew <- paste0("tail(", covariates[i] , " n=1L ) ")
+      my.countNew <- paste0("tail(", covariates[i] , ", n=1L ) ")
       dum.Ker <- gsub(my.countOld, my.countNew, x = dum.Ker, fixed=TRUE)
         
       my.countOld <- paste0(covariates[i] ,"[",Kern.Fun at variable.Integral@var.time,"]")