[Yuima-commits] r755 - in pkg/yuima: . R

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

Author: kyuta
Date: 2021-08-17 08:12:40 +0200 (Tue, 17 Aug 2021)
New Revision: 755

Modified:
   pkg/yuima/DESCRIPTION
   pkg/yuima/NEWS
   pkg/yuima/R/sim.euler.R
Log:
fixed a bug in simulate when the jump intensity is not a parameter

Modified: pkg/yuima/DESCRIPTION
===================================================================
--- pkg/yuima/DESCRIPTION	2021-05-12 12:22:15 UTC (rev 754)
+++ pkg/yuima/DESCRIPTION	2021-08-17 06:12:40 UTC (rev 755)
@@ -1,7 +1,7 @@
 Package: yuima
 Type: Package
 Title: The YUIMA Project Package for SDEs
-Version: 1.10.7
+Version: 1.10.8
 Depends: R(>= 2.10.0), methods, zoo, stats4, utils, expm, cubature,
         mvtnorm
 Imports: Rcpp (>= 0.12.1), boot (>= 1.3-2), glassoFast, wavethresh,

Modified: pkg/yuima/NEWS
===================================================================
--- pkg/yuima/NEWS	2021-05-12 12:22:15 UTC (rev 754)
+++ pkg/yuima/NEWS	2021-08-17 06:12:40 UTC (rev 755)
@@ -74,4 +74,5 @@
 2021/2/5: modified adaBayes.R and adaBayes.Rd
 2021/2/26: modified qmle.R and qmle.Rd
 2021/3/13: fixed a bug in qmle when joint = TRUE and the parameter space is one-dimensional
-2021/3/15: fixed a bug in qmle when yuima at model@parameter at measure is character(0) and yuima at model@measure.type is "CP"
\ No newline at end of file
+2021/3/15: fixed a bug in qmle when yuima at model@parameter at measure is character(0) and yuima at model@measure.type is "CP"
+2021/8/16: fixed a bug in simulate when the jump intensity is not a parameter
\ No newline at end of file

Modified: pkg/yuima/R/sim.euler.R
===================================================================
--- pkg/yuima/R/sim.euler.R	2021-05-12 12:22:15 UTC (rev 754)
+++ pkg/yuima/R/sim.euler.R	2021-08-17 06:12:40 UTC (rev 755)
@@ -270,8 +270,10 @@
       #   print(str(dummyList))
       #print(str(idx.dummy))
       lgth.meas<-length(yuima at model@parameter at measure)
-      if(lgth.meas>1){
-        for(i in c(2:lgth.meas)){
+      #if(lgth.meas>1){
+      if(lgth.meas>0){ # YK Aug 11, 2021
+        #for(i in c(2:lgth.meas)){
+        for(i in c(1:lgth.meas)){ # YK Aug 11, 2021
           idx.dummy<-yuima at model@parameter at measure[i]
           #print(i)
           #print(yuima at model@parameter at measure[i])