Nothing
inputlist <-
function(m,s,Sty,tini,xini,Tend,delta,Ntime,quadfl,RSfl)
{
# out <- as.list(c(m,s,Sty,tini,xini,Tend,delta,Ntime,quadfl,RSfl))
out <- list(m,s,Sty,tini,xini,Tend,delta,Ntime,quadfl,RSfl)
attr(out,"names") <- c("mu","sigma2","Stype","t0","x0","Tfin","deltat","M","quadflag","RStudioflag")
class(out) <- c("inputlist", "list")
return(out)
}
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.