pcor <- function(x,y=NA){ if(!is.na(y[1]))temp<-wincor(x,y,tr=0) if(is.na(y[1]))temp<-winall(x,tr=0) list(cor=temp$cor,p.value=temp$siglevel) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.