##example Affymetrix annotation file and its location
annotationFile<-system.file('extdata','HG-U133_Plus_2_annot_part.csv',package='annotationTools')
##load annotation file
annotation<-read.csv(annotationFile,colClasses='character',comment.char='#')
##genes of interest
myGenes<-c('DDR1','GUCA1A','HSPA6',NA,'XYZ')
##column 15 in annotation contains gene symbols
colnames(annotation)
##find probe sets probing for particular genes
getPROBESET(myGenes,annotation,idCol=15)
##find probe sets probing only for the genes of interest (i.e. with unique annotation)
getPROBESET(myGenes,annotation,idCol=15,uniqueID=TRUE)
##track origin of annotation failure for the 2 last probe set IDs
getPROBESET(myGenes,annotation,idCol=15,diagnose=TRUE)
Run the code above in your browser using DataLab