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

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

Author: kyuta
Date: 2013-10-28 02:47:48 +0100 (Mon, 28 Oct 2013)
New Revision: 258

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

Modified: pkg/yuima/DESCRIPTION
===================================================================
--- pkg/yuima/DESCRIPTION	2013-10-27 16:47:46 UTC (rev 257)
+++ pkg/yuima/DESCRIPTION	2013-10-28 01:47:48 UTC (rev 258)
@@ -1,7 +1,7 @@
 Package: yuima
 Type: Package
 Title: The YUIMA Project package (unstable version)
-Version: 0.1.212
+Version: 0.1.213
 Date: 2013-10-28
 Depends: methods, zoo, stats4, utils
 Suggests: cubature, mvtnorm

Modified: pkg/yuima/NEWS
===================================================================
--- pkg/yuima/NEWS	2013-10-27 16:47:46 UTC (rev 257)
+++ pkg/yuima/NEWS	2013-10-28 01:47:48 UTC (rev 258)
@@ -12,4 +12,5 @@
 2013/04/14: modify adaBayes.R
 2013/04/14: modify bns.test.Rd, mpv.Rd
 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
\ No newline at end of file
+            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
\ No newline at end of file

Modified: pkg/yuima/R/llag.R
===================================================================
--- pkg/yuima/R/llag.R	2013-10-27 16:47:46 UTC (rev 257)
+++ pkg/yuima/R/llag.R	2013-10-28 01:47:48 UTC (rev 258)
@@ -146,7 +146,7 @@
                   value=double(n-2),PACKAGE="yuima")$value
         
         idx <- which.max(abs(tmp))
-        mlag <- y[idx] # make the first timing of max or min
+        mlag <- -y[idx] # make the first timing of max or min
         cov <- tmp[idx]
         
         theta[i,j] <- mlag
@@ -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[idx] # make the first timing of max or min
         cov <- tmp[idx]
         
         theta[i,j] <- mlag