pb <- function(data, ...){ result <- numeric(ncol(data)) for(i in 1:ncol(data)) { result[i] <- cor(data[,i], rowSums(data[-i]), ...) } result }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.