.packageName <- "affydata"
.First.lib <- function(libname, pkgname) {
  require(affy, quietly=TRUE)
  path = .path.package(pkgname)
  where <- as.environment(match(paste("package:", pkgname, sep=""), search()))

}