Nothing
## When creating test cases for the parser, we need to create model
## systems that include initial() and deriv()/update() calls
ex <- function(x, discrete = FALSE, var = "q") {
rhs <- if (discrete) "update" else "deriv"
sprintf("%s\ninitial(%s) <- 1\n%s(%s) <- 1", x, var, rhs, var)
}
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.