R/getnorm.R

In TULIP: A Toolbox for Linear Discriminant Analysis with Penalties

Defines functions getnorm

Documented in getnorm

getnorm <- function(x, y, type="pooled"){
 type <- match.arg(type, c("pooled","naive"))
 if(type=="pooled"){getnorm.pool(x,y)}else{
      getnorm.naive(x,y)
  }
}

Try the TULIP package in your browser