R/r.nil.R

"r.nil" <-
function (r, n)
  {
t <- (r*sqrt(n-2))/sqrt(1-r^2)
df <- n-2
p <- pt(t, df)
d <- data.frame("H0:rNot0" = r, t = t, df=df, p=1-p)
return(d)
}

Try the psychometric package in your browser

Any scripts or data that you put into this service are public.

psychometric documentation built on Nov. 6, 2023, 1:06 a.m.