Mercurial > repos > proteore > proteore_clusterprofiler

comparison GO-enrich.R @ 5:8a91f58782df draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit c5f2b4b085a9911d1e4cc8d11367dd0363e626ab-dirty
author proteore
date Fri, 23 Mar 2018 10:01:41 -0400
parents 710414ebb6db
children 5e16cec55146
comparison
equal deleted inserted replaced
4:710414ebb6db 5:8a91f58782df
30 ont=ontology, 30 ont=ontology,
31 level=level, 31 level=level,
32 readable=TRUE) 32 readable=TRUE)
33 name <- paste("GGO.", ontology, ".png", sep = "") 33 name <- paste("GGO.", ontology, ".png", sep = "")
34 png(name) 34 png(name)
35 p <- barplot(ggo) 35 p <- barplot(ggo, showCategory=10)
36 print(p) 36 print(p)
37 dev.off() 37 dev.off()
38 return(ggo) 38 return(ggo)
39 } 39 }
40 40
53 p <- barplot(ego) 53 p <- barplot(ego)
54 print(p) 54 print(p)
55 dev.off() 55 dev.off()
56 dot_name <- paste("EGO.", ontology, ".dot.png", sep = "") 56 dot_name <- paste("EGO.", ontology, ".dot.png", sep = "")
57 png(dot_name) 57 png(dot_name)
58 p <- dotplot(ego) 58 p <- dotplot(ego, showCategory=10)
59 print(p) 59 print(p)
60 dev.off() 60 dev.off()
61 return(ego) 61 return(ego)
62 } 62 }
63 63