docortest <- function(n,r){ #n<-length(x) t<-r*sqrt((n-2)/(1-r^2)) pvalue<-2*pt(-abs(t),df=n-2) return(pvalue) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.