1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
## ----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()
|
