[Yuima-commits] r792 - in pkg/yuima: . src

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

Author: kyuta
Date: 2022-03-03 15:01:02 +0100 (Thu, 03 Mar 2022)
New Revision: 792

Modified:
   pkg/yuima/DESCRIPTION
   pkg/yuima/NEWS
   pkg/yuima/src/euler.c
Log:
fixed a bug in euler.c

Modified: pkg/yuima/DESCRIPTION
===================================================================
--- pkg/yuima/DESCRIPTION	2022-02-27 17:22:01 UTC (rev 791)
+++ pkg/yuima/DESCRIPTION	2022-03-03 14:01:02 UTC (rev 792)
@@ -1,7 +1,7 @@
 Package: yuima
 Type: Package
 Title: The YUIMA Project Package for SDEs
-Version: 1.15.4
+Version: 1.15.5
 Depends: R(>= 2.10.0), methods, zoo, stats4, utils, expm, cubature,
         mvtnorm
 Imports: Rcpp (>= 0.12.1), boot (>= 1.3-2), glassoFast,

Modified: pkg/yuima/NEWS
===================================================================
--- pkg/yuima/NEWS	2022-02-27 17:22:01 UTC (rev 791)
+++ pkg/yuima/NEWS	2022-03-03 14:01:02 UTC (rev 792)
@@ -96,3 +96,4 @@
 	    updated DESCRIPTION to add package calculus in Imports
 2022/01/25: fixed a protection issue in euler.c
 2022/01/28: modified wllag.R and unimported the wavethresh package
+2022/03/03: fixed a bug in euler.c
\ No newline at end of file

Modified: pkg/yuima/src/euler.c
===================================================================
--- pkg/yuima/src/euler.c	2022-02-27 17:22:01 UTC (rev 791)
+++ pkg/yuima/src/euler.c	2022-03-03 14:01:02 UTC (rev 792)
@@ -64,10 +64,10 @@
         for (j = 0; j < d; j++) {
             /* PROTECT(xpar = allocVector(REALSXP, 1));*/
             REAL(xpar)[0] = rX[j + i * d];
-            //defineVar(installChar(STRING_ELT(modelstate, j)), duplicate(xpar), env);
+            defineVar(installChar(STRING_ELT(modelstate, j)), duplicate(xpar), env);
             //PROTECT(xvar = STRING_ELT(modelstate, j));
             //defineVar(installChar(xvar), duplicate(xpar), env);
-            defineVar(installChar(STRING_ELT(modelstate, j)), xpar, env);
+            //defineVar(installChar(STRING_ELT(modelstate, j)), xpar, env);
 /*            UNPROTECT(1); */
         }