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

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

Author: lorenzo
Date: 2018-09-24 10:59:57 +0200 (Mon, 24 Sep 2018)
New Revision: 678

Modified:
   pkg/yuima/R/AuxMethodforPPR.R
Log:


Modified: pkg/yuima/R/AuxMethodforPPR.R
===================================================================
--- pkg/yuima/R/AuxMethodforPPR.R	2018-09-17 13:26:49 UTC (rev 677)
+++ pkg/yuima/R/AuxMethodforPPR.R	2018-09-24 08:59:57 UTC (rev 678)
@@ -151,10 +151,13 @@
         dummyJumpTime <- gridTime[-1][dummyData!=0]
         dummyData2 <- diff(unique(cumsum(dummyData)))
         #dummyData3 <- zoo(dummyData2,order.by = dummyJumpTime)
-        dummyData3 <- rep(1,length(dummyData2))
+        # dummyData3 <- rep(1,length(dummyData2))
         #JumpTime <- dummyJumpTime
+        
+        # Jump <- lapply(X=as.numeric(gridTime), FUN = function(X,JumpT,Jump){Jump[JumpT<X]},
+        #                JumpT = dummyJumpTime, Jump = as.numeric(dummyData3!=0))
         Jump <- lapply(X=as.numeric(gridTime), FUN = function(X,JumpT,Jump){Jump[JumpT<X]},
-                       JumpT = dummyJumpTime, Jump = as.numeric(dummyData3!=0))
+          JumpT = dummyJumpTime, Jump = dummyData2)
         assign(paste0("d",yuimaPPR at Kernel@variable.Integral at var.dx[i]), 
                Jump ,
                envir=my.envd1)