## Not run:
# ##load Affymetrix annotations
# annotMouse<-read.csv('Mouse430_2_annot.csv',colClasses='character',comment.char='#')
# annotHuman<-read.csv('HG-U133A_annot.csv',colClasses='character',comment.char='#')
#
# ##load HomoloGene database
# homologene<-read.delim('homologene.data',header=FALSE)
#
# ##define target species ID
# homoSapiens_ID<-9609
#
# ##map all probe sets on mouse array Mouse 430 2.0 to their orthologs on human array HG-U133A
# mappingTable<-ps2ps(annotMouse,annotHuman,homologene,homoSapiens_ID)
#
# ##write mapping table to disk
# write.table(mappingTable,file='Mouse4302_HGU133A.txt',sep='\t',col.names=T,row.names=F,quote=FALSE)
#
# ##to map the first 10 probe sets given in the annotation only
# mappingTable<-ps2ps(annotMouse,annotHuman,homologene,targetSpecies,probesets=annotMouse[1:10,1])
# ## End(Not run)
Run the code above in your browser using DataLab