.packageName <- "hgu95av2" hgu95av2 <- function() cat(hgu95av2QC) .no_S3_generics = TRUE ns <- asNamespace("hgu95av2") hgu95av2LOCUSIDfunc <- function() { hgu95av2LOCUSID <- function(){ .Deprecated("hgu95av2ENTREZID") } hgu95av2LOCUSID() hgu95av2ENTREZID } makeActiveBinding("hgu95av2LOCUSID", hgu95av2LOCUSIDfunc, ns)