## some dummy data
dData <- data.frame(someSymbol = LETTERS[1:5],
accessionNumber =
c("X83928", "V00540", "U21090", "L38487", "M34057"))
at <- annotationTable(displayData = dData,
displayCols = list(accessionNumber = "EntrezId"))
xat <- xtable(at)
print(xat, include.rownames = FALSE)
Run the code above in your browser using DataLab