## ----loadLibs, message=FALSE--------------------------------------------------
library("annotate")
library("hgu95av2.db")
library("GO.db")

## ----getGO--------------------------------------------------------------------
as.list(hgu95av2GO[5])

## ----showmget-----------------------------------------------------------------
mget(c("738_at", "40840_at", "41668_r_at"), hgu95av2GENENAME)

## ----moremget-----------------------------------------------------------------
temp <- mget(c("41561_s_at", "40840_at", "41668_r_at"), hgu95av2GO)

## ----gettingGO----------------------------------------------------------------
temp <- get("738_at", hgu95av2GO)
names(temp)
temp[["GO:0008253"]][["Evidence"]]
temp[["GO:0008253"]][["Ontology"]]

## -----------------------------------------------------------------------------
mget(names(get("738_at", hgu95av2GO)), GOTERM)

## ----echo=FALSE---------------------------------------------------------------
sessionInfo()