cor.test.p <- function(r, n) { t <- (r*sqrt(n-2))/sqrt(1-r^2) p <- 2*(pt(abs(t),(n-2), lower.tail=FALSE)) p }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.