.packageName <- "lumiRatV1"
lumiRatV1 <- function() {
	pkgInfo <- lumiRatV1QC
	pkgInfo <- sub('\n\n$', '\n', pkgInfo)
	pkgInfo <- paste(pkgInfo, 'Mappings from Illumina Identifiers to nuIDs:\n', sep='')
	pkgInfo <- paste(pkgInfo, '\tlumiRatV1PROBEID2NUID: from Illumina Probe Id to nuID\n', sep='')
	pkgInfo <- paste(pkgInfo, '\tlumiRatV1TARGETID2NUID: from Illumina Target Id to nuID\n\n', sep='')
	cat(pkgInfo)
}
.no_S3_generics = TRUE
ns <- asNamespace("lumiRatV1")
lumiRatV1LOCUSIDfunc <- function() {
	lumiRatV1LOCUSID <- function(){
		.Deprecated("lumiRatV1ENTREZID")
	}
	lumiRatV1LOCUSID()
	lumiRatV1ENTREZID
}
makeActiveBinding("lumiRatV1LOCUSID", lumiRatV1LOCUSIDfunc, ns)

