R/norDoublermksigun.R

norDoublermksigun <- function(x,y,s1,s2,n,r)
{
  SEDx <- sqrt((s1^2+s2^2-2*r*s1*s2)/(n-1))
  t <- (x-y)/SEDx
  return(t)
}
notplayingcute/aaaaahomework documentation built on May 30, 2019, 2:17 p.m.