R/docortest.R

Defines functions docortest

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)
    
}
yufree/xMSannotator documentation built on Oct. 31, 2022, 12:20 a.m.