R/createtable.R

In ekawaler/RadPheWAS:

# createPhewasTable <-function(id.icd9.count, min.code.count=2,
#   add.exclusions=T, translate=T, aggregate.fun=sum, id.gender)

create_phewas_table <- function(id.icd9.count){
  createPhewasTable(id.icd9.count)
}