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

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

Author: kyuta
Date: 2015-05-14 07:42:26 +0200 (Thu, 14 May 2015)
New Revision: 385

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

Modified: pkg/yuima/DESCRIPTION
===================================================================
--- pkg/yuima/DESCRIPTION	2015-05-11 11:47:19 UTC (rev 384)
+++ pkg/yuima/DESCRIPTION	2015-05-14 05:42:26 UTC (rev 385)
@@ -1,7 +1,7 @@
 Package: yuima
 Type: Package
 Title: The YUIMA Project Package for SDEs
-Version: 1.0.69
+Version: 1.0.70
 Depends: methods, zoo, stats4, utils, expm, cubature, mvtnorm
 Author: YUIMA Project Team
 Maintainer: Stefano M. Iacus <stefano.iacus at unimi.it>

Modified: pkg/yuima/NEWS
===================================================================
--- pkg/yuima/NEWS	2015-05-11 11:47:19 UTC (rev 384)
+++ pkg/yuima/NEWS	2015-05-14 05:42:26 UTC (rev 385)
@@ -27,8 +27,9 @@
             changed the optimization method of the method "QMLE" of cce
             modified cce.Rd
 2014/11/11: fixed a bug in cce.R (method "GME")
-            modified the example of cce.Rd
-2015/04/02: fixed a bug in rng.R (function "rstable")
-2015/04/21: added hyavar.R, hyavar.Rd (asymptotic variance estimator for HY)
-            fixed a bug in llag.R
+            modified the example of cce.Rd
+2015/04/02: fixed a bug in rng.R (function "rstable")
+2015/04/21: added hyavar.R, hyavar.Rd (asymptotic variance estimator for HY)
+            fixed a bug in llag.R
             modified cce.Rd, cce_functions.c
+2015/05/14: fixed a bug in cce_functions.c
\ No newline at end of file

Modified: pkg/yuima/src/cce_functions.c
===================================================================
--- pkg/yuima/src/cce_functions.c	2015-05-11 11:47:19 UTC (rev 384)
+++ pkg/yuima/src/cce_functions.c	2015-05-14 05:42:26 UTC (rev 385)
@@ -7,9 +7,13 @@
    
   for(t = 0; t < *frequency; t++){
     for(i = 0; i < *nsparse; i++){
-        k = 1;
-      while((ztime[k]<=grid[i])&&(k<*n)){
-        k++;
+      /*k = 1;*/
+      /*while((ztime[k]<=grid[i])&&(k<*n)){*/
+      for(k = 1; k < *n; k++){
+        /*k++;*/
+        if(ztime[k] <= grid[i]){
+          break;
+        }
       }
       result[(*nsparse)*t+i] += znum[k-1];
       grid[i]++;