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

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

Author: kyuta
Date: 2012-12-18 17:15:04 +0100 (Tue, 18 Dec 2012)
New Revision: 215

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

Modified: pkg/yuima/DESCRIPTION
===================================================================
--- pkg/yuima/DESCRIPTION	2012-12-13 09:59:27 UTC (rev 214)
+++ pkg/yuima/DESCRIPTION	2012-12-18 16:15:04 UTC (rev 215)
@@ -1,8 +1,8 @@
 Package: yuima
 Type: Package
 Title: The YUIMA Project package (unstable version)
-Version: 0.1.198
-Date: 2012-12-13
+Version: 0.1.199
+Date: 2012-12-19
 Depends: methods, zoo, stats4, utils
 Suggests: cubature, mvtnorm
 Author: YUIMA Project Team.

Modified: pkg/yuima/NEWS
===================================================================
--- pkg/yuima/NEWS	2012-12-13 09:59:27 UTC (rev 214)
+++ pkg/yuima/NEWS	2012-12-18 16:15:04 UTC (rev 215)
@@ -1,3 +1,4 @@
 2012/10/05: add mpv.R, bns.test.R, mpv.Rd, bns.test.Rd
 2012/12/13: add noisy.sampling.R, noisy.sampling.Rd
-            modify bns.test.R, cce.R, llag.R, mpv.R, bns.test.Rd, cce.Rd, llag.Rd, mpv.Rd
\ No newline at end of file
+            modify bns.test.R, cce.R, llag.R, mpv.R, bns.test.Rd, cce.Rd, llag.Rd, mpv.Rd
+2012/12/19: modify cce.R
\ No newline at end of file

Modified: pkg/yuima/R/cce.R
===================================================================
--- pkg/yuima/R/cce.R	2012-12-13 09:59:27 UTC (rev 214)
+++ pkg/yuima/R/cce.R	2012-12-18 16:15:04 UTC (rev 215)
@@ -468,7 +468,7 @@
       #  rho[i] <- coef2*2*log(length(x))*BPV(x[(i-K):(i-1)])/(K-2)
       #}
       rho[-(1:K)] <- coef2*2*log(n)*
-        rollapply(x[-n],width=K,FUN="BPV",align="left")/(K-2)
+        rollapply(x[-n],width=K,FUN=BPV,align="left")/(K-2)
     }else{
       #rho <- coef2*(mad(diff(as.numeric(x)))/0.6745)^2
       rho <- coef2*(mad(diff(x))/0.6745)^2