library(hgu133a.db)
probes <- c('218865_at','219574_at','210075_at','219527_at','221636_s_at',
'213256_at','218582_at','201736_s_at','201737_s_at','212498_at','215422_at',
'215423_at')
annotLookup <- select(hgu133a.db, keys = probes,
columns = c('PROBEID', 'ENSEMBL', 'SYMBOL'))
annotLookup
PROBEID ENSEMBL SYMBOL
1 218865_at ENSG00000186205 MARC1
2 219574_at ENSG00000145416 MARCHF1
3 210075_at ENSG00000099785 MARCHF2
4 219527_at ENSG00000117791 MARC2
5 221636_s_at ENSG00000117791 MARC2
6 213256_at ENSG00000173926 MARCHF3
7 218582_at ENSG00000198060 MARCHF5
8 201736_s_at ENSG00000145495 MARCHF6
9 201737_s_at ENSG00000145495 MARCHF6
10 212498_at ENSG00000145495 MARCHF6
11 215422_at ENSG00000145495 MARCHF6
12 215423_at ENSG00000145495 MARCHF6