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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
### R code from vignette source 'useDataPkgs.Rnw'
###################################################
### code chunk number 1: loadLibs
###################################################
library("annotate")
library("hgu95av2.db")
library("GO.db")
###################################################
### code chunk number 2: getGO
###################################################
as.list(hgu95av2GO[5])
###################################################
### code chunk number 3: showmget
###################################################
mget(c("738_at", "40840_at", "41668_r_at"), hgu95av2GENENAME)
###################################################
### code chunk number 4: moremget
###################################################
temp <- mget(c("41561_s_at", "40840_at", "41668_r_at"), hgu95av2GO)
###################################################
### code chunk number 5: gettingGO
###################################################
temp <- get("738_at", hgu95av2GO)
names(temp)
temp[["GO:0008253"]][["Evidence"]]
temp[["GO:0008253"]][["Ontology"]]
###################################################
### code chunk number 6: useDataPkgs.Rnw:225-226
###################################################
mget(names(get("738_at", hgu95av2GO)), GOTERM)
###################################################
### code chunk number 7: useDataPkgs.Rnw:236-237
###################################################
sessionInfo()
|
