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)
  
}
kuppal2/xmsPANDA documentation built on May 15, 2021, 5:48 a.m.