twoway.twoway <- function(x, ...) {
if (x$method=="Initial")
twoway.default(x$residuals, ..., name=x$name)
else ## this needs more thinking.
x
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.