cor2xy <- function(x,y,corfun=spear){ est1=corfun(x[,1],y)$cor est2=corfun(x[,2],y)$cor list(cor=c(est1,est2)) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.