twoDcorR_sub <-
function(data,x,y,corfun=wincor){
#
# Used by TwoDcorR
#
rv=corfun(x[data,1],y[data])$cor
rv[2]=corfun(x[data,2],y[data])$cor
rv
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.