tst.create<-function(modelName=stop("Need a model name")){
model<-{}
model$name<-modelName
model$simulated<-FALSE
class(model)<-"tst"
return(model)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.