# nonparametric partial correlation
np.partial.cor <- function (y, z, x) {
return(cor(y - predict(loess.wrapper(x, y)), z - predict(loess.wrapper(x, z))))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.