model <- dsmodel(function(x,y) list(x+1,y+1), display = FALSE)
model + dsrange(1,1,0.1)
model + dsdots()
model$display()
model + dsarrows()
model + dscurve(function(x) x)
model$display()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.