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