## Example 1:
fx <- expression(0)
gx <- expression(1)
fy <- expression(0)
gy <- expression(1)
res <- snssde2d(driftx=fx,diffx=gx,drifty=fy,diffy=gy,N=10000)
plot2d(res,type="l")
## Example 2:
fx <- expression(0)
gx <- expression(1)
fy <- expression(0)
gy <- expression(1)
fz <- expression(0)
gz <- expression(1)
res <- snssde3d(driftx=fx,diffx=gx,drifty=fy,diffy=gy,driftz=fz,diffz=gz,N=10000)
plot3D(res,display="persp")
plot3D(res,display="rgl")
Run the code above in your browser using DataLab