RefSeq to HGNC names

if (!require('Homo.sapiens'))
{
  source("http://bioconductor.org/biocLite.R")
  biocLite("Homo.sapiens")
  library('Homo.sapiens')
}

isonames<-c('NM_001276435',
'NM_001276436',
'NM_001276437',
'NM_001276438',
'NM_001276439',
'NM_002243',
'NM_170736',
'NM_170737',
'NM_003966')


geneSymbols <- select(
    org.Hs.eg.db,
    keys=isonames,
    cols=c('SYMBOL'),
    keytype='REFSEQ'
)

print(geneSymbols$SYMBOL)