## dX(t) = 4*(-2-X(t)) * dt + Y(t) * dW1(t)
## dY(t) = 4*(-2-Y(t)) * dt + X(t) * dW2(t)
## x01 = 1 , y01 = 1
## x02 = 1, y02 = 1
## W1(t) and W2(t) two independent Brownian motion
fx <- expression(4*(-2-x))
gx <- expression(y)
fy <- expression(4*(-2-y))
gy <- expression(x)
res <- bridgesde2d(x0=c(1,1),y=c(1,1),driftx=fx,diffx=gx,drifty=fy,diffy=gy)
res
plot(res)
dev.new()
plot(res,plot.type="single")
dev.new()
plot2d(res,type="n")
points2d(XY,col=rgb(0,100,0,50,maxColorValue=255), pch=16)
Run the code above in your browser using DataLab