R/validate.family.R

In ARTP2: Pathway and Gene-Level Association Test

validate.family <- function(family){
  
  if(!(family %in% c('gaussian', 'binomial'))){
    msg <- 'family should be either \'gaussian\' or \'binomial\''
    stop(msg)
  }
  
}