## Example 1:
## random numbers of two standard Brownian motion W1(t) and W2(t) at time = 1
fx <- expression(0)
gx <- expression(1)
fy <- expression(0)
gy <- expression(1)
res1 <- rsde2d(driftx=fx,diffx=gx,drifty=fy,diffy=gy,tau=1,M=30,N=1000)
res1
summary(res1)
bconfint(res1,level=0.95)
moment(res1,order=c(2,3,4,5))
X <- cbind(res1$x,res1$y)
## library(sm)
## sm.density(X,display="persp")
## Example 2: Stratonovich sde 2-dim
## dX(t) = 4*(-2-X(t))*t * dt + 0.4*Y(t) o dW1(t)
## dY(t) = (0*(Y(t) > 0)- 2*(Y(t) <= 0)) * dt + X(t) o dW2(t)
fx <- expression(4*(-2-x)*t)
gx <- expression(0.4*y)
fy <- expression(0*(y>0)-2*(y<=0))
gy <- expression(x)
res2 <- rsde2d(driftx=fx,diffx=gx,drifty=fy,diffy=gy,tau=1,M=30,N=1000,type="str")
res2
summary(res2)
bconfint(res2,level=0.95)
moment(res2,order=c(2,3,4,5))
X <- cbind(res2$x,res2$y)
## sm.density(X,display="persp")Run the code above in your browser using DataLab