local({
    info <- loadingNamespaceInfo()
    ns <- .Internal(getRegisteredNamespace(as.name(info$pkgname)))
    if (is.null(ns))
        stop("can't find name space environment");
    dataFile <- file.path(info$libname, info$pkgname, "R", "all.rda")
    load(dataFile, ns)
})
require(Biobase)

## register vsn as a normalization method with the affy package, if that is loaded:
if ("package:affy" %in% search())
  if(!"vsn" %in% get("normalize.AffyBatch.methods", "package:affy"))
    assign("normalize.AffyBatch.methods",
           c(get("normalize.AffyBatch.methods", pos="package:affy"), "vsn"),
           pos="package:affy")
