Nothing
# ex2.14.R
bY <- expression( (23-11*x^2+1.5*x^4-(x^6)/(2^4))/(2*x) )
bX <- expression( (6-11*x+6*x^2-x^3) )
sX <- expression( sqrt(x) )
set.seed(123)
X <- sde.sim(drift=bX, sigma=sX)
plot(X)
set.seed(123)
Y <- sde.sim(drift=bY, X0 = 2, method="shoji")
plot((Y/2)^2)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.