# download the "best match" mapping data across human array and mouse array #
## Not run:
# map.url <- "http://www.affymetrix.com/Auth/analysis/downloads/na31/ivt/Mouse430_2.na31.ortholog.csv.zip"
# map.file.name <- unlist(strsplit(map.url,split="/"))
# map.file.name <- map.file.name[length(map.file.name)]
# map.destination <- paste(local.data.dir,map.file.name,sep="")
# download.file(map.url,map.destination) # Affy website may need users to register first
# unzip(map.destination)
# affy.ortho.file <- substring(map.destination,1,nchar(map.destination)-4)
#
#
# # read in the mapping data #
# ortho.data <- read.csv(affy.ortho.file,quote='"',as.is=T)
#
# keep the probe-sets identifers of human array "HG-U133_Plus_2" only
# keep.rows <- is.element(ortho.data$Ortholog.Array,"HG-U133_Plus_2")
# ortho.data <- ortho.data[keep.rows,]
#
# ortho.data <- ortho.data[,c(1,3)] # keep the columns containg probe-sets only
# ortho.data$Ortholog.Probe.Set <- tolower(ortho.data$Ortholog.Probe.Set)
#
# # prepare the list obejct of map data for calling AGDEX routine #
# map.data <- list(probe.map=ortho.data,
# map.Aprobe.col=2, # the column index containing human probe-sets IDs in data frame probe.map
# map.Bprobe.col=1) # the column index containing mouse probe-sets IDs in data frame probe.map
# ## End(Not run)
Run the code above in your browser using DataLab