.packageName <- "mouse4302cdf"
xy2i = function(x,y) {y*1002+x+1}
i2xy = function(i) {r=cbind((i-1)%%1002,(i-1)%/%1002); colnames(r)=c('x','y'); return(r)}
.First.lib <- function(libname, pkgname){
      path = .path.package(pkgname)
      where <- as.environment(match(paste("package:", pkgname, sep = ""),search()))
      data(list="mouse4302cdf", package=pkgname, envir = where)
}
