## ----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()