|
2
|
1 <?xml version="1.0" encoding="UTF-8"?>
|
|
|
2 <tool id="edger_dge" name="edgeR Differential GeneExpression Analysis">
|
|
|
3 <description>RNA-Seq expression analysis using edgeR (R package)</description>
|
|
|
4
|
|
|
5 <command>
|
|
|
6 <!--
|
|
|
7 The following script is written in the "Cheetah" language:
|
|
|
8 http://www.cheetahtemplate.org/docs/users_guide_html_multipage/contents.html
|
|
|
9 -->
|
|
|
10
|
|
15
|
11 R --vanilla --slave -f $R_script '--args
|
|
2
|
12 $design_matrix
|
|
|
13 $contrast
|
|
|
14
|
|
|
15 $output_count_edgeR
|
|
|
16 $output_cpm
|
|
|
17 output_FPXM
|
|
|
18 $output_raw_counts
|
|
|
19
|
|
|
20 $qc
|
|
|
21 $output_MDSplot
|
|
|
22 $output_BCVplot
|
|
|
23 $output_MAplot
|
|
|
24 smearPlot '
|
|
18
|
25 > $output_R
|
|
19
|
26 2> >(grep -v 'Calculating sizes' 1>&2)
|
|
2
|
27 </command>
|
|
|
28
|
|
|
29 <inputs>
|
|
|
30 <param name="design_matrix" type="data" format="tabular" help="Design matrix" />
|
|
|
31
|
|
|
32 <param name="contrast" type="text" label="Contrast (biological question)" help="e.g. 'tumor-normal' or '(G1+G2)/2-G3' using the factors chosen in the design matrix. Read the 'makeContrasts' manual from Limma package for more info." />
|
|
|
33
|
|
|
34 <param name="qc" type="select" label="Quality control reports">
|
|
18
|
35 <option value="true" selected="true">Yes</option>
|
|
|
36 <option value="false">No</option>
|
|
2
|
37 </param>
|
|
|
38
|
|
|
39 <param name="debug" type="select" label="R Debug output">
|
|
18
|
40 <option value="true"> Yes</option>
|
|
|
41 <option value="false" selected="true">No</option>
|
|
2
|
42 </param>
|
|
|
43 </inputs>
|
|
|
44
|
|
4
|
45 <configfiles>
|
|
|
46 <configfile name="R_script">
|
|
16
|
47 library(edgeR,quietly=TRUE) ## enable quietly to avoid unnecessaity stderr dumping for loading limma
|
|
4
|
48
|
|
|
49 ## Fetch commandline arguments
|
|
6
|
50 args <- commandArgs(trailingOnly = TRUE)
|
|
4
|
51 designmatrix = args[1]
|
|
|
52 contrast = args[2]
|
|
|
53
|
|
|
54 output_1 = args[3]
|
|
|
55 output_2 = args[4]
|
|
15
|
56 output_3 = args[5] ##FPKM file - yet to be implemented
|
|
4
|
57 output_4 = args[6]
|
|
|
58
|
|
|
59 QC = nchar(args[7]) > 0
|
|
|
60
|
|
|
61 output_5 = args[8]
|
|
|
62 output_6 = args[9]
|
|
|
63 output_7 = args[10]
|
|
|
64
|
|
|
65 output_8 = args[11]
|
|
|
66
|
|
|
67
|
|
|
68 library(edgeR)
|
|
6
|
69 raw_data <- read.delim(designmatrix,header=T,stringsAsFactors=T)
|
|
4
|
70
|
|
|
71 ## Obtain read-counts
|
|
12
|
72
|
|
|
73 header = read.delim(as.character(raw_data[1,1]),header=F,stringsAsFactors=F,row.names=1,nrows=1)
|
|
|
74 has_header = (class(header[1,1]) == "character")
|
|
|
75
|
|
13
|
76 read_counts = read.delim(as.character(raw_data[1,1]),header=has_header,stringsAsFactors=F,row.names=1)[1]
|
|
12
|
77
|
|
4
|
78 for(i in 2:length(raw_data[,1])) {
|
|
15
|
79 write("parsing counts from:",stdout())
|
|
|
80 write(raw_data[i,1],stdout())
|
|
11
|
81
|
|
|
82 header = read.delim(as.character(raw_data[i,1]),header=F,stringsAsFactors=F,row.names=1,nrows=1)
|
|
|
83 has_header = (class(header[1,1]) == "character")
|
|
13
|
84 table = read.delim(as.character(raw_data[i,1]),header=has_header,stringsAsFactors=F,row.names=1)[1]
|
|
11
|
85
|
|
13
|
86 read_counts = cbind(read_counts,table)
|
|
4
|
87 }
|
|
|
88
|
|
13
|
89 colnames(read_counts) = as.character(raw_data[,2])
|
|
|
90
|
|
4
|
91
|
|
|
92
|
|
|
93 ## Filter for HTSeq predifined counts:
|
|
|
94 exclude_HTSeq = c("no_feature","ambiguous","too_low_aQual","not_aligned","alignment_not_unique")
|
|
|
95 exclude_DEXSeq = c("_ambiguous","_empty","_lowaqual","_notaligned")
|
|
|
96
|
|
|
97 exclude = match(c(exclude_HTSeq, exclude_DEXSeq),rownames(read_counts))
|
|
|
98 exclude = exclude[is.na(exclude)==0]
|
|
|
99 if(length(exclude) != 0) {
|
|
|
100 read_counts = read_counts[-exclude,]
|
|
|
101 }
|
|
|
102
|
|
|
103
|
|
|
104
|
|
13
|
105 empty_samples = apply(read_counts,2,function(x) sum(x) == 0)
|
|
|
106 if(sum(empty_samples) > 0) {
|
|
|
107 write(paste("There are ",sum(empty_samples)," empty samples found:",sep=""),stderr())
|
|
|
108 write(colnames(read_counts)[empty_samples],stderr())
|
|
14
|
109 } else {
|
|
13
|
110 dge = DGEList(counts=read_counts,genes=rownames(read_counts))
|
|
4
|
111
|
|
13
|
112 design_tmp <- raw_data[3:length(raw_data)]
|
|
|
113 rownames(design_tmp) <- colnames(dge)
|
|
|
114 formula = paste(c("~0",colnames(design_tmp)),collapse = " + ")
|
|
|
115 design <- model.matrix(as.formula(formula),design_tmp)
|
|
4
|
116
|
|
13
|
117 prefixes = colnames(design_tmp)[attr(design,"assign")]
|
|
|
118 avoid = nchar(prefixes) == nchar(colnames(design))
|
|
|
119 replacements = substr(colnames(design),nchar(prefixes)+1,nchar(colnames(design)))
|
|
|
120 replacements[avoid] = colnames(design)[avoid]
|
|
|
121 colnames(design) = replacements
|
|
4
|
122
|
|
|
123
|
|
|
124
|
|
15
|
125 write("Calculating normalization factors...",stdout())
|
|
13
|
126 dge = calcNormFactors(dge)
|
|
15
|
127 write("Estimating common dispersion...",stdout())
|
|
13
|
128 dge = estimateGLMCommonDisp(dge,design)
|
|
15
|
129 write("Estimating trended dispersion...",stdout())
|
|
13
|
130 dge = estimateGLMTrendedDisp(dge,design)
|
|
15
|
131 write("Estimating tagwise dispersion...",stdout())
|
|
13
|
132 dge = estimateGLMTagwiseDisp(dge,design)
|
|
4
|
133
|
|
|
134
|
|
|
135
|
|
|
136
|
|
15
|
137 if(QC == TRUE) {
|
|
|
138 write("Creating QC plots...",stdout())
|
|
13
|
139 #### MDS Plot
|
|
|
140 pdf(output_5)
|
|
|
141 plotMDS(dge, main="edgeR MDS Plot")
|
|
|
142 dev.off()
|
|
|
143 #### Biological coefficient of variation plot
|
|
|
144 pdf(output_6)
|
|
|
145 plotBCV(dge, cex=0.4, main="edgeR: Biological coefficient of variation (BCV) vs abundance")
|
|
|
146 dev.off()
|
|
|
147 }
|
|
4
|
148
|
|
|
149
|
|
|
150
|
|
15
|
151 write("Fitting GLM...",stdout())
|
|
13
|
152 fit = glmFit(dge,design)
|
|
4
|
153
|
|
15
|
154 write(paste("Performing likelihood ratio test: ",contrast,sep=""),stdout())
|
|
13
|
155 cont <- c(contrast)
|
|
|
156 cont <- makeContrasts(contrasts=cont, levels=design)
|
|
4
|
157
|
|
13
|
158 lrt <- glmLRT(fit, contrast=cont[,1])
|
|
15
|
159 write(paste("Exporting to file: ",output_1,sep=""),stdout())
|
|
13
|
160 write.table(file=output_1,topTags(lrt,n=nrow(read_counts))\$table,sep="\t",row.names=T)
|
|
|
161 write.table(file=output_2,cpm(dge,normalized.lib.sizes=TRUE),sep="\t")
|
|
|
162 ## todo EXPORT FPKM
|
|
|
163 write.table(file=output_4,dge\$counts,sep="\t")
|
|
15
|
164
|
|
|
165
|
|
|
166
|
|
|
167 if(QC == TRUE) {
|
|
|
168 write("Creating MA plots...",stdout())
|
|
13
|
169
|
|
|
170 etable <- topTags(lrt, n=nrow(dge))\$table
|
|
|
171 etable <- etable[order(etable\$FDR), ]
|
|
|
172 pdf(output_7)
|
|
|
173 with(etable, plot(logCPM, logFC, pch=20, main="edgeR: Fold change vs abundance"))
|
|
|
174 with(subset(etable, FDR<0.05), points(logCPM, logFC, pch=20, col="red"))
|
|
|
175 abline(h=c(-1,1), col="blue")
|
|
|
176 dev.off()
|
|
|
177 }
|
|
15
|
178 write("Done!",stdout())
|
|
4
|
179 }
|
|
|
180 </configfile>
|
|
|
181 </configfiles>
|
|
|
182
|
|
2
|
183 <outputs>
|
|
|
184 <data format="tabular" name="output_count_edgeR" label="edgeR DGE on ${design_matrix.hid}: ${design_matrix.name} - table" />
|
|
|
185 <data format="tabular" name="output_cpm" label="edgeR DGE on ${design_matrix.hid}: ${design_matrix.name} - CPM" />
|
|
|
186 <data format="tabular" name="output_raw_counts" label="edgeR DGE on ${design_matrix.hid}: ${design_matrix.name} - raw counts" />
|
|
|
187
|
|
|
188 <data format="txt" name="output_R" label="edgeR DGE on ${design_matrix.hid}: ${design_matrix.name} - R output" >
|
|
|
189 <filter>(debug == "true")</filter>
|
|
|
190 </data>
|
|
|
191
|
|
|
192 <data format="pdf" name="output_MDSplot" label="edgeR DGE on ${design_matrix.hid}: ${design_matrix.name} - MDS-plot">
|
|
|
193 <filter>(qc == "true")</filter>
|
|
|
194 </data>
|
|
|
195
|
|
|
196 <data format="pdf" name="output_BCVplot" label="edgeR DGE on ${design_matrix.hid}: ${design_matrix.name} - BCV-plot">
|
|
|
197 <filter>(qc == "true")</filter>
|
|
|
198 </data>
|
|
|
199
|
|
|
200 <data format="pdf" name="output_MAplot" label="edgeR DGE on ${design_matrix.hid}: ${design_matrix.name} - MA-plot">
|
|
|
201 <filter>(qc == "true")</filter>
|
|
|
202 </data>
|
|
|
203 </outputs>
|
|
|
204
|
|
|
205 <help>
|
|
|
206 input: Design matrix using "create Design matrix" tool
|
|
|
207 input: contrast
|
|
|
208 </help>
|
|
|
209 </tool>
|
