Nothing
DE2x = function(y0,times,pars,proc)
{
parms = list(proc=proc,pars=pars)
out = lsoda(y0,times,oderhs,parms)
return(out[,2:ncol(out)])
}
oderhs = function(t,r,parms)
{
proc = parms$proc
pars = parms$pars
r = matrix(r,1,length(r))
colnames(r) = proc$more$names
y = as.vector(proc$more$fn(t,r,pars,proc$more$more))
return(list(y))
}
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.