.packageName <- "rn230arnug7cdf"
xy2i=function(x,y) {y*602+x+1}
i2xy = function(i) {r=cbind((i-1)%%602,(i-1)%/%602); 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()))
	load(file.path(path, "data", "rn230arnug7cdf.rda"), envir = where)
}
