"updateModel" <-
function(fitted.model,quantmod) {
quantmod@model.inputs <- fitted.model@model.inputs;
quantmod@fitted.model <- fitted.model;
return(quantmod);
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.