R/loadGSAfisher.R

In Merguerrero/GSAFisherComb: Package to perform a GSAfisher test for a gene-set analysis

Defines functions loadGSAfisher

Documented in loadGSAfisher

loadGSAfisher <-
function(obj){
  ifelse(class(obj)== "numeric",class(obj)<-"GSAfisher",class(obj)<-"GSAfisher.mult")
  #cat("Object of class:", "\n", class(obj))
  return(obj)
}