Plot_summary <-
function(res,title){
pairs(res ,upper.panel= panel.cor, lower.panel=panel.smooth,cex = 1.5,diag.panel=panel.hist, main=title)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.