plot.TDcat <- function(x,asp=1,panel.first={grid();abline(h=0,col="darkgrey");abline(v=0,col="darkgrey")},...){
invisible(x[,plot(x,y,asp=asp,panel.first=panel.first,...)])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.