[Yuima-commits] r73 - pkg/yuima/man

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Fri Jun 4 05:55:04 CEST 2010


Author: kamatani
Date: 2010-06-04 05:55:03 +0200 (Fri, 04 Jun 2010)
New Revision: 73

Modified:
   pkg/yuima/man/cce.Rd
Log:
a few minor changes

Modified: pkg/yuima/man/cce.Rd
===================================================================
--- pkg/yuima/man/cce.Rd	2010-05-24 13:21:08 UTC (rev 72)
+++ pkg/yuima/man/cce.Rd	2010-06-04 03:55:03 UTC (rev 73)
@@ -40,7 +40,8 @@
 diff.coef.1 <- function(t, x1 = 0, x2 = 0) sqrt(1+t)
 diff.coef.2 <- function(t, x1 = 0, x2 = 0) sqrt(1+t^2)
 cor.rho <- function(t, x1 = 0, x2 = 0) sqrt(1/2)
-diff.coef.matrix <- matrix(c("diff.coef.1(t,x1,x2)", "diff.coef.2(t,x1,x2) * cor.rho(t,x1,x2)", "", "diff.coef.2(t,x1,x2) * sqrt(1-cor.rho(t,x1,x2)^2)"), 2, 2) 
+diff.coef.matrix <- matrix(c("diff.coef.1(t,x1,x2)", "diff.coef.2(t,x1,x2) * cor.rho(t,x1,x2)", 
+"", "diff.coef.2(t,x1,x2) * sqrt(1-cor.rho(t,x1,x2)^2)"), 2, 2) 
 cor.mod <- setModel(drift = c("", ""), diffusion = diff.coef.matrix,solve.variable = c("x1", "x2")) 
 
 set.seed(111) 
@@ -51,7 +52,7 @@
 yuima <- simulate(yuima) 
 psample<- poisson.random.sampling(yuima, rate = c(0.2,0.3), n = 1000) 
 
-## CCE takes the psample and returns an estimate of the quadratic covariation. 
+## cce takes the psample and returns an estimate of the quadratic covariation. 
 cce(psample)[1, 2] 
 
 ## True value of the quadratic covariation.



More information about the Yuima-commits mailing list