kdepairs.rsf <-
function(x, n=25, density=TRUE, contour=TRUE, ...) {
y <- data.frame(fitted=fitted(x), model.frame(x)[,-1])
kdepairs.default(y, n, density, contour, ...)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.