## set GO ID's and color
goIDs <- c("GO:0051130","GO:0019912","GO:0005783")
color <- c("lightblue","red","yellow")
dd <- getAmigoTree(goIDs=goIDs,color=color,
filename="example",picType="dot",saveResult=FALSE)
tt <- readAmigoDot(object=dd)
adjM2gml(adjMatrix(tt),relations(tt)$color,
annot(tt)$fillcolor,annot(tt)$GO_ID,
annot(tt)$description,"example")
Run the code above in your browser using DataLab