Mercurial > repos > proteore > proteore_clusterprofiler

comparison GO-enrich.R @ 9:2f67202ffdb3 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload commit 6ca074d75447a272b570f7709ed10d0c8356bec5-dirty
author proteore
date Wed, 27 Feb 2019 03:39:16 -0500
parents b29255864039
children d951677a50d4
comparison
equal deleted inserted replaced
8:b29255864039 9:2f67202ffdb3
154 names(args) <- argsDF$V1 154 names(args) <- argsDF$V1
155 155
156 #save(args,file="/home/dchristiany/proteore_project/ProteoRE/tools/cluster_profiler/args.Rda") 156 #save(args,file="/home/dchristiany/proteore_project/ProteoRE/tools/cluster_profiler/args.Rda")
157 #load("/home/dchristiany/proteore_project/ProteoRE/tools/cluster_profiler/args.Rda") 157 #load("/home/dchristiany/proteore_project/ProteoRE/tools/cluster_profiler/args.Rda")
158 158
159 plot = unlist(strsplit(args$plot,",")) 159
160 go_represent=str2bool(args$go_represent) 160 go_represent=str2bool(args$go_represent)
161 go_enrich=str2bool(args$go_enrich) 161 go_enrich=str2bool(args$go_enrich)
162 if (go_enrich){
163 plot = unlist(strsplit(args$plot,","))
164 }
162 165
163 suppressMessages(library(args$species, character.only = TRUE, quietly = TRUE)) 166 suppressMessages(library(args$species, character.only = TRUE, quietly = TRUE))
164 167
165 # Extract OrgDb 168 # Extract OrgDb
166 if (args$species=="org.Hs.eg.db") { 169 if (args$species=="org.Hs.eg.db") {