R/norDoubleimkfqsigun.R

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