.packageName <- "btahomology"
btahomology <- function() cat(btahomologyQC)
.no_S3_generics = TRUE
ns <- asNamespace("btahomology")
btahomologyLOCUSIDfunc <- function() {
	btahomologyLOCUSID <- function(){
		.Deprecated("btahomologyENTREZID")
	}
	btahomologyLOCUSID()
	btahomologyENTREZID
}
makeActiveBinding("btahomologyLOCUSID", btahomologyLOCUSIDfunc, ns)

