R/cor_test_p.R

Defines functions cor.test.p

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
}
isglobal-brge/GCCA documentation built on Feb. 19, 2022, 9:21 a.m.