R/reiser.2000.REML.R

reiser.2000.REML <- function(x,y,sigmaX,sigmaY){
  

  muX <- mean(x)
  muY <- mean(y)
  

  
  delta.hat <- pnorm((muX-muY)/(sqrt(sigmaX^2+sigmaY^2)))
  delta.hat
  
}
blebedenko/ME-AUC documentation built on June 4, 2019, 5:17 p.m.