[Yuima-commits] r74 - pkg/yuima/man
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Fri Jun 4 05:56:15 CEST 2010
Author: kamatani
Date: 2010-06-04 05:56:14 +0200 (Fri, 04 Jun 2010)
New Revision: 74
Modified:
pkg/yuima/man/simulate.Rd
Log:
change parameters in examples
Modified: pkg/yuima/man/simulate.Rd
===================================================================
--- pkg/yuima/man/simulate.Rd 2010-06-04 03:55:03 UTC (rev 73)
+++ pkg/yuima/man/simulate.Rd 2010-06-04 03:56:14 UTC (rev 74)
@@ -66,8 +66,8 @@
set.seed(123)
# Path-simulation for 1-dim diffusion process.
-# dXt = 3*Xt*dt + dWt
-mod <- setModel(drift="3*y", diffusion=1, solve.variable=c("y"))
+# dXt = -0.3*Xt*dt + dWt
+mod <- setModel(drift="-0.3*y", diffusion=1, solve.variable=c("y"))
str(mod)
# Set the model in an `yuima' object with a sampling scheme.
@@ -101,7 +101,7 @@
ou1 <- setYuima(model=mod1, sampling=samp)
# Solve SDEs using Euler-Maruyama method.
-ou1 <- simulate(ou, xinit=1, true.p = list(theta=-1))
+ou1 <- simulate(ou1, xinit=1, true.p = list(theta=-0.3))
plot(ou1)
@@ -161,9 +161,9 @@
## example of simulation by specifying increments
## Path-simulation for 1-dim diffusion process
-## dXt = 3*Xt*dt + dWt
+## dXt = -0.3*Xt*dt + dWt
-mod <- setModel(drift="3*y", diffusion=3,solve.variable=c("y"))
+mod <- setModel(drift="-0.3*y", diffusion=1,solve.variable=c("y"))
str(mod)
## Set the model in an `yuima' object with a sampling scheme.
More information about the Yuima-commits
mailing list