library(hgu133aprobe)
filename <- system.file("exampleData", "sample.fasta",
package="altcdfenvs")
fasta.seq <- readDNAStringSet(filename)
targets <- as.character(fasta.seq)
names(targets) <- sub("^>.+\\|(NM[^ \\|]+|Hs[^ \\|]+)\\| ? .+$", "",
names(targets))
m <- matchAffyProbes(hgu133aprobe,
targets,
"HG-U133A")
Run the code above in your browser using DataLab