[Yuima-commits] r241 - in pkg/yuima: . man

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

Author: kyuta
Date: 2013-04-14 06:20:50 +0200 (Sun, 14 Apr 2013)
New Revision: 241

Modified:
   pkg/yuima/DESCRIPTION
   pkg/yuima/NEWS
   pkg/yuima/man/bns.test.Rd
   pkg/yuima/man/mpv.Rd
Log:
modified "diag("t",3)" in the examples of bns.test.Rd and mpv.Rd

Modified: pkg/yuima/DESCRIPTION
===================================================================
--- pkg/yuima/DESCRIPTION	2013-04-13 23:58:15 UTC (rev 240)
+++ pkg/yuima/DESCRIPTION	2013-04-14 04:20:50 UTC (rev 241)
@@ -1,7 +1,7 @@
 Package: yuima
 Type: Package
 Title: The YUIMA Project package (unstable version)
-Version: 0.1.208
+Version: 0.1.209
 Date: 2013-04-14
 Depends: methods, zoo, stats4, utils
 Suggests: cubature, mvtnorm

Modified: pkg/yuima/NEWS
===================================================================
--- pkg/yuima/NEWS	2013-04-13 23:58:15 UTC (rev 240)
+++ pkg/yuima/NEWS	2013-04-14 04:20:50 UTC (rev 241)
@@ -10,3 +10,4 @@
 2013/04/13: modify qmle.R
 2013/04/14: modify qmle.R
 2013/04/14: modify adaBayes.R
+2013/04/14: modify bns.test.Rd, mpv.Rd

Modified: pkg/yuima/man/bns.test.Rd
===================================================================
--- pkg/yuima/man/bns.test.Rd	2013-04-13 23:58:15 UTC (rev 240)
+++ pkg/yuima/man/bns.test.Rd	2013-04-14 04:20:50 UTC (rev 241)
@@ -103,7 +103,9 @@
 # Multi-dimensional case
 ## Model: dXkt=t*dWk_t (k=1,2,3) (no jump case).
 
-model <- setModel(drift=c(0,0,0),diffusion=diag("t",3),time.variable="t",
+diff.matrix <- diag(3)
+diag(diff.matrix) <- c("t","t","t")
+model <- setModel(drift=c(0,0,0),diffusion=diff.matrix,time.variable="t",
                   solve.variable=c("x1","x2","x3"))
 
 yuima.samp <- setSampling(Terminal = 1, n = 390) 

Modified: pkg/yuima/man/mpv.Rd
===================================================================
--- pkg/yuima/man/mpv.Rd	2013-04-13 23:58:15 UTC (rev 240)
+++ pkg/yuima/man/mpv.Rd	2013-04-14 04:20:50 UTC (rev 241)
@@ -95,7 +95,9 @@
 # Multi-dimensional case
 ## Model: dXkt=t*dWk_t (k=1,2,3).
 
-model <- setModel(drift=c(0,0,0),diffusion=diag("t",3),time.variable="t",
+diff.matrix <- diag(3)
+diag(diff.matrix) <- c("t","t","t")
+model <- setModel(drift=c(0,0,0),diffusion=diff.matrix,time.variable="t",
                   solve.variable=c("x1","x2","x3"))
 
 yuima.samp <- setSampling(Terminal = 1, n = 390)