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

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

Author: kyuta
Date: 2013-11-21 02:20:01 +0100 (Thu, 21 Nov 2013)
New Revision: 261

Modified:
   pkg/yuima/DESCRIPTION
   pkg/yuima/NEWS
   pkg/yuima/R/llag.R
Log:
modify llag.R

Modified: pkg/yuima/DESCRIPTION
===================================================================
--- pkg/yuima/DESCRIPTION	2013-11-20 11:50:03 UTC (rev 260)
+++ pkg/yuima/DESCRIPTION	2013-11-21 01:20:01 UTC (rev 261)
@@ -1,8 +1,8 @@
 Package: yuima
 Type: Package
 Title: The YUIMA Project package (unstable version)
-Version: 0.1.215
-Date: 2013-11-20
+Version: 0.1.216
+Date: 2013-11-21
 Depends: methods, zoo, stats4, utils
 Suggests: cubature, mvtnorm
 Author: YUIMA Project Team.

Modified: pkg/yuima/NEWS
===================================================================
--- pkg/yuima/NEWS	2013-11-20 11:50:03 UTC (rev 260)
+++ pkg/yuima/NEWS	2013-11-21 01:20:01 UTC (rev 261)
@@ -14,4 +14,5 @@
 2013/10/28: add cce_functions.c
             modify cce.R, llag.R, sim.euler.R, bns.test.Rd, cce.Rd, llag.Rd, mpv.Rd, noisy.sampling.Rd
 2013/10/28: modify llag.R
-2013/10/30: modify cce.R, cce_functions.c
\ No newline at end of file
+2013/10/30: modify cce.R, cce_functions.c
+2013/11/21: modify llag.R
\ No newline at end of file

Modified: pkg/yuima/R/llag.R
===================================================================
--- pkg/yuima/R/llag.R	2013-11-20 11:50:03 UTC (rev 260)
+++ pkg/yuima/R/llag.R	2013-11-21 01:20:01 UTC (rev 261)
@@ -190,7 +190,7 @@
                   value=double(length(grid[[num]])),PACKAGE="yuima")$value
         
         idx <- which.max(abs(tmp))
-        mlag <- -grid[idx] # make the first timing of max or min
+        mlag <- -grid[[num]][idx] # make the first timing of max or min
         cov <- tmp[idx]
         
         theta[i,j] <- mlag
@@ -198,7 +198,7 @@
         theta[j,i] <- -mlag
         covmat[j,i] <- covmat[i,j]
         
-        crosscov[[num]] <- zoo(tmp,grid)
+        crosscov[[num]] <- zoo(tmp,grid[[num]])
       }
     }
   }