Mercurial > repos > iuc > limma_voom

annotate limma_voom.R @ 14:94f82c79fa66 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
author iuc
date Fri, 04 Jan 2019 04:11:21 -0500
parents a984bbe87e2a
children f564807836a9
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1 # This tool takes in a matrix of feature counts as well as gene annotations and
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
2 # outputs a table of top expressions as well as various plots for differential
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
3 # expression analysis
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
4 #
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
5 # ARGS: htmlPath", "R", 1, "character" -Path to html file linking to other outputs
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
6 # outPath", "o", 1, "character" -Path to folder to write all output to
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
7 # filesPath", "j", 2, "character" -JSON list object if multiple files input
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
8 # matrixPath", "m", 2, "character" -Path to count matrix
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
9 # factFile", "f", 2, "character" -Path to factor information file
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
10 # factInput", "i", 2, "character" -String containing factors if manually input
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
11 # annoPath", "a", 2, "character" -Path to input containing gene annotations
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
12 # contrastData", "C", 1, "character" -String containing contrasts of interest
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
13 # cpmReq", "c", 2, "double" -Float specifying cpm requirement
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
14 # cntReq", "z", 2, "integer" -Integer specifying minimum total count requirement
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
15 # sampleReq", "s", 2, "integer" -Integer specifying cpm requirement
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
16 # normCounts", "x", 0, "logical" -String specifying if normalised counts should be output
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
17 # rdaOpt", "r", 0, "logical" -String specifying if RData should be output
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
18 # lfcReq", "l", 1, "double" -Float specifying the log-fold-change requirement
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
19 # pValReq", "p", 1, "double" -Float specifying the p-value requirement
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
20 # pAdjOpt", "d", 1, "character" -String specifying the p-value adjustment method
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
21 # normOpt", "n", 1, "character" -String specifying type of normalisation used
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
22 # robOpt", "b", 0, "logical" -String specifying if robust options should be used
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
23 # trend", "t", 1, "double" -Float for prior.count if limma-trend is used instead of voom
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
24 # weightOpt", "w", 0, "logical" -String specifying if voomWithQualityWeights should be used
7
5a722ae502b3 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit cf399638ebca4250bcc15f468238a9964de97b33
iuc
parents: 6
diff changeset
25 # topgenes", "G", 1, "integer" -Integer specifying no. of genes to highlight in volcano and heatmap
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
26 # treatOpt", "T", 0, "logical" -String specifying if TREAT function should be used
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
27 # plots, "P", 1, "character" -String specifying additional plots to be created
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
28 #
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
29 # OUT:
7
5a722ae502b3 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit cf399638ebca4250bcc15f468238a9964de97b33
iuc
parents: 6
diff changeset
30 # Density Plots (if filtering)
5a722ae502b3 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit cf399638ebca4250bcc15f468238a9964de97b33
iuc
parents: 6
diff changeset
31 # Box Plots (if normalising)
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
32 # MDS Plot
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
33 # Voom/SA plot
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
34 # MD Plot
7
5a722ae502b3 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit cf399638ebca4250bcc15f468238a9964de97b33
iuc
parents: 6
diff changeset
35 # Volcano Plot
5a722ae502b3 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit cf399638ebca4250bcc15f468238a9964de97b33
iuc
parents: 6
diff changeset
36 # Heatmap
1
3c8b816c26e7 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 58c05c0ce9334f8b9c800283cfd1f40573546edd
iuc
parents: 0
diff changeset
37 # Expression Table
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
38 # HTML file linking to the ouputs
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
39 # Optional:
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
40 # Normalised counts Table
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
41 # RData file
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
42 #
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
43 #
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
44 # Author: Shian Su - registertonysu@gmail.com - Jan 2014
7
5a722ae502b3 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit cf399638ebca4250bcc15f468238a9964de97b33
iuc
parents: 6
diff changeset
45 # Modified by: Maria Doyle - Jun 2017, Jan 2018, May 2018
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
46
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
47 # Record starting time
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
48 timeStart <- as.character(Sys.time())
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
49
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
50 # Load all required libraries
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
51 library(methods, quietly=TRUE, warn.conflicts=FALSE)
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
52 library(statmod, quietly=TRUE, warn.conflicts=FALSE)
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
53 library(splines, quietly=TRUE, warn.conflicts=FALSE)
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
54 library(edgeR, quietly=TRUE, warn.conflicts=FALSE)
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
55 library(limma, quietly=TRUE, warn.conflicts=FALSE)
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
56 library(scales, quietly=TRUE, warn.conflicts=FALSE)
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
57 library(getopt, quietly=TRUE, warn.conflicts=FALSE)
7
5a722ae502b3 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit cf399638ebca4250bcc15f468238a9964de97b33
iuc
parents: 6
diff changeset
58 library(gplots, quietly=TRUE, warn.conflicts=FALSE)
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
59
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
60 ################################################################################
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
61 ### Function Declaration
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
62 ################################################################################
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
63 # Function to sanitise contrast equations so there are no whitespaces
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
64 # surrounding the arithmetic operators, leading or trailing whitespace
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
65 sanitiseEquation <- function(equation) {
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
66 equation <- gsub(" *[+] *", "+", equation)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
67 equation <- gsub(" *[-] *", "-", equation)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
68 equation <- gsub(" *[/] *", "/", equation)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
69 equation <- gsub(" *[*] *", "*", equation)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
70 equation <- gsub("^\\s+|\\s+$", "", equation)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
71 return(equation)
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
72 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
73
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
74 # Function to sanitise group information
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
75 sanitiseGroups <- function(string) {
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
76 string <- gsub(" *[,] *", ",", string)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
77 string <- gsub("^\\s+|\\s+$", "", string)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
78 return(string)
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
79 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
80
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
81 # Function to change periods to whitespace in a string
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
82 unmake.names <- function(string) {
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
83 string <- gsub(".", " ", string, fixed=TRUE)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
84 return(string)
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
85 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
86
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
87 # Generate output folder and paths
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
88 makeOut <- function(filename) {
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
89 return(paste0(opt$outPath, "/", filename))
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
90 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
91
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
92 # Generating design information
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
93 pasteListName <- function(string) {
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
94 return(paste0("factors$", string))
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
95 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
96
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
97 # Create cata function: default path set, default seperator empty and appending
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
98 # true by default (Ripped straight from the cat function with altered argument
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
99 # defaults)
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
100 cata <- function(..., file = opt$htmlPath, sep = "", fill = FALSE, labels = NULL,
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
101 append = TRUE) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
102 if (is.character(file))
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
103 if (file == "")
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
104 file <- stdout()
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
105 else if (substring(file, 1L, 1L) == "|") {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
106 file <- pipe(substring(file, 2L), "w")
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
107 on.exit(close(file))
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
108 }
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
109 else {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
110 file <- file(file, ifelse(append, "a", "w"))
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
111 on.exit(close(file))
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
112 }
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
113 .Internal(cat(list(...), file, sep, fill, labels, append))
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
114 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
115
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
116 # Function to write code for html head and title
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
117 HtmlHead <- function(title) {
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
118 cata("<head>\n")
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
119 cata("<title>", title, "</title>\n")
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
120 cata("</head>\n")
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
121 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
122
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
123 # Function to write code for html links
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
124 HtmlLink <- function(address, label=address) {
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
125 cata("<a href=\"", address, "\" target=\"_blank\">", label, "</a><br />\n")
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
126 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
127
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
128 # Function to write code for html images
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
129 HtmlImage <- function(source, label=source, height=500, width=500) {
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
130 cata("<img src=\"", source, "\" alt=\"", label, "\" height=\"", height)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
131 cata("\" width=\"", width, "\"/>\n")
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
132 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
133
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
134 # Function to write code for html list items
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
135 ListItem <- function(...) {
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
136 cata("<li>", ..., "</li>\n")
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
137 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
138
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
139 TableItem <- function(...) {
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
140 cata("<td>", ..., "</td>\n")
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
141 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
142
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
143 TableHeadItem <- function(...) {
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
144 cata("<th>", ..., "</th>\n")
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
145 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
146
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
147 ################################################################################
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
148 ### Input Processing
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
149 ################################################################################
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
150
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
151 # Collect arguments from command line
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
152 args <- commandArgs(trailingOnly=TRUE)
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
153
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
154 # Get options, using the spec as defined by the enclosed list.
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
155 # Read the options from the default: commandArgs(TRUE).
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
156 spec <- matrix(c(
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
157 "htmlPath", "R", 1, "character",
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
158 "outPath", "o", 1, "character",
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
159 "filesPath", "j", 2, "character",
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
160 "matrixPath", "m", 2, "character",
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
161 "factFile", "f", 2, "character",
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
162 "factInput", "i", 2, "character",
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
163 "annoPath", "a", 2, "character",
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
164 "contrastData", "C", 1, "character",
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
165 "cpmReq", "c", 1, "double",
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
166 "totReq", "y", 0, "logical",
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
167 "cntReq", "z", 1, "integer",
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
168 "sampleReq", "s", 1, "integer",
12
324417ddf9b9 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 33651907e4d5d6672537b80142c022d2b4951e8c
iuc
parents: 11
diff changeset
169 "filtCounts", "F", 0, "logical",
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
170 "normCounts", "x", 0, "logical",
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
171 "rdaOpt", "r", 0, "logical",
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
172 "lfcReq", "l", 1, "double",
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
173 "pValReq", "p", 1, "double",
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
174 "pAdjOpt", "d", 1, "character",
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
175 "normOpt", "n", 1, "character",
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
176 "robOpt", "b", 0, "logical",
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
177 "trend", "t", 1, "double",
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
178 "weightOpt", "w", 0, "logical",
7
5a722ae502b3 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit cf399638ebca4250bcc15f468238a9964de97b33
iuc
parents: 6
diff changeset
179 "topgenes", "G", 1, "integer",
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
180 "treatOpt", "T", 0, "logical",
11
0433416377de planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 4bcbd83574ecf7194f3370aa883a9573563afdbc
iuc
parents: 10
diff changeset
181 "plots", "P", 1, "character",
0433416377de planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 4bcbd83574ecf7194f3370aa883a9573563afdbc
iuc
parents: 10
diff changeset
182 "libinfoOpt", "L", 0, "logical"),
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
183 byrow=TRUE, ncol=4)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
184 opt <- getopt(spec)
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
185
1
3c8b816c26e7 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 58c05c0ce9334f8b9c800283cfd1f40573546edd
iuc
parents: 0
diff changeset
186
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
187 if (is.null(opt$matrixPath) & is.null(opt$filesPath)) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
188 cat("A counts matrix (or a set of counts files) is required.\n")
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
189 q(status=1)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
190 }
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
191
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
192 if (is.null(opt$cpmReq)) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
193 filtCPM <- FALSE
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
194 } else {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
195 filtCPM <- TRUE
1
3c8b816c26e7 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 58c05c0ce9334f8b9c800283cfd1f40573546edd
iuc
parents: 0
diff changeset
196 }
3c8b816c26e7 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 58c05c0ce9334f8b9c800283cfd1f40573546edd
iuc
parents: 0
diff changeset
197
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
198 if (is.null(opt$cntReq) || is.null(opt$sampleReq)) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
199 filtSmpCount <- FALSE
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
200 } else {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
201 filtSmpCount <- TRUE
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
202 }
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
203
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
204 if (is.null(opt$totReq)) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
205 filtTotCount <- FALSE
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
206 } else {
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
207 filtTotCount <- TRUE
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
208 }
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
209
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
210 if (is.null(opt$rdaOpt)) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
211 wantRda <- FALSE
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
212 } else {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
213 wantRda <- TRUE
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
214 }
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
215
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
216 if (is.null(opt$annoPath)) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
217 haveAnno <- FALSE
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
218 } else {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
219 haveAnno <- TRUE
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
220 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
221
12
324417ddf9b9 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 33651907e4d5d6672537b80142c022d2b4951e8c
iuc
parents: 11
diff changeset
222 if (is.null(opt$filtCounts)) {
324417ddf9b9 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 33651907e4d5d6672537b80142c022d2b4951e8c
iuc
parents: 11
diff changeset
223 wantFilt <- FALSE
324417ddf9b9 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 33651907e4d5d6672537b80142c022d2b4951e8c
iuc
parents: 11
diff changeset
224 } else {
324417ddf9b9 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 33651907e4d5d6672537b80142c022d2b4951e8c
iuc
parents: 11
diff changeset
225 wantFilt <- TRUE
324417ddf9b9 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 33651907e4d5d6672537b80142c022d2b4951e8c
iuc
parents: 11
diff changeset
226 }
324417ddf9b9 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 33651907e4d5d6672537b80142c022d2b4951e8c
iuc
parents: 11
diff changeset
227
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
228 if (is.null(opt$normCounts)) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
229 wantNorm <- FALSE
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
230 } else {
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
231 wantNorm <- TRUE
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
232 }
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
233
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
234 if (is.null(opt$robOpt)) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
235 wantRobust <- FALSE
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
236 } else {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
237 wantRobust <- TRUE
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
238 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
239
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
240 if (is.null(opt$weightOpt)) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
241 wantWeight <- FALSE
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
242 } else {
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
243 wantWeight <- TRUE
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
244 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
245
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
246 if (is.null(opt$trend)) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
247 wantTrend <- FALSE
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
248 deMethod <- "limma-voom"
1
3c8b816c26e7 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 58c05c0ce9334f8b9c800283cfd1f40573546edd
iuc
parents: 0
diff changeset
249 } else {
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
250 wantTrend <- TRUE
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
251 deMethod <- "limma-trend"
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
252 priorCount <- opt$trend
1
3c8b816c26e7 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 58c05c0ce9334f8b9c800283cfd1f40573546edd
iuc
parents: 0
diff changeset
253 }
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
254
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
255 if (is.null(opt$treatOpt)) {
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
256 wantTreat <- FALSE
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
257 } else {
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
258 wantTreat <- TRUE
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
259 }
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
260
11
0433416377de planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 4bcbd83574ecf7194f3370aa883a9573563afdbc
iuc
parents: 10
diff changeset
261 if (is.null(opt$libinfoOpt)) {
0433416377de planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 4bcbd83574ecf7194f3370aa883a9573563afdbc
iuc
parents: 10
diff changeset
262 wantLibinfo <- FALSE
0433416377de planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 4bcbd83574ecf7194f3370aa883a9573563afdbc
iuc
parents: 10
diff changeset
263 } else {
0433416377de planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 4bcbd83574ecf7194f3370aa883a9573563afdbc
iuc
parents: 10
diff changeset
264 wantLibinfo <- TRUE
0433416377de planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 4bcbd83574ecf7194f3370aa883a9573563afdbc
iuc
parents: 10
diff changeset
265 }
0433416377de planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 4bcbd83574ecf7194f3370aa883a9573563afdbc
iuc
parents: 10
diff changeset
266
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
267
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
268 if (!is.null(opt$filesPath)) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
269 # Process the separate count files (adapted from DESeq2 wrapper)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
270 library("rjson")
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
271 parser <- newJSONParser()
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
272 parser$addData(opt$filesPath)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
273 factorList <- parser$getObject()
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
274 factors <- sapply(factorList, function(x) x[[1]])
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
275 filenamesIn <- unname(unlist(factorList[[1]][[2]]))
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
276 sampleTable <- data.frame(sample=basename(filenamesIn),
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
277 filename=filenamesIn,
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
278 row.names=filenamesIn,
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
279 stringsAsFactors=FALSE)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
280 for (factor in factorList) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
281 factorName <- factor[[1]]
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
282 sampleTable[[factorName]] <- character(nrow(sampleTable))
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
283 lvls <- sapply(factor[[2]], function(x) names(x))
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
284 for (i in seq_along(factor[[2]])) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
285 files <- factor[[2]][[i]][[1]]
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
286 sampleTable[files,factorName] <- lvls[i]
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
287 }
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
288 sampleTable[[factorName]] <- factor(sampleTable[[factorName]], levels=lvls)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
289 }
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
290 rownames(sampleTable) <- sampleTable$sample
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
291 rem <- c("sample","filename")
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
292 factors <- sampleTable[, !(names(sampleTable) %in% rem), drop=FALSE]
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
293
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
294 #read in count files and create single table
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
295 countfiles <- lapply(sampleTable$filename, function(x){read.delim(x, row.names=1)})
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
296 counts <- do.call("cbind", countfiles)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
297
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
298 } else {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
299 # Process the single count matrix
11
0433416377de planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 4bcbd83574ecf7194f3370aa883a9573563afdbc
iuc
parents: 10
diff changeset
300 counts <- read.table(opt$matrixPath, header=TRUE, sep="\t", strip.white=TRUE, stringsAsFactors=FALSE)
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
301 row.names(counts) <- counts[, 1]
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
302 counts <- counts[ , -1]
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
303 countsRows <- nrow(counts)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
304
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
305 # Process factors
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
306 if (is.null(opt$factInput)) {
11
0433416377de planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 4bcbd83574ecf7194f3370aa883a9573563afdbc
iuc
parents: 10
diff changeset
307 factorData <- read.table(opt$factFile, header=TRUE, sep="\t", strip.white=TRUE)
14
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
308 # order samples as in counts matrix
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
309 factorData <- factorData[match(colnames(counts), factorData[, 1]), ]
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
310 factors <- factorData[, -1, drop=FALSE]
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
311 } else {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
312 factors <- unlist(strsplit(opt$factInput, "|", fixed=TRUE))
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
313 factorData <- list()
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
314 for (fact in factors) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
315 newFact <- unlist(strsplit(fact, split="::"))
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
316 factorData <- rbind(factorData, newFact)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
317 } # Factors have the form: FACT_NAME::LEVEL,LEVEL,LEVEL,LEVEL,... The first factor is the Primary Factor.
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
318
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
319 # Set the row names to be the name of the factor and delete first row
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
320 row.names(factorData) <- factorData[, 1]
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
321 factorData <- factorData[, -1]
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
322 factorData <- sapply(factorData, sanitiseGroups)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
323 factorData <- sapply(factorData, strsplit, split=",")
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
324 factorData <- sapply(factorData, make.names)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
325 # Transform factor data into data frame of R factor objects
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
326 factors <- data.frame(factorData)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
327 }
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
328 }
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
329
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
330 # if annotation file provided
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
331 if (haveAnno) {
11
0433416377de planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 4bcbd83574ecf7194f3370aa883a9573563afdbc
iuc
parents: 10
diff changeset
332 geneanno <- read.table(opt$annoPath, header=TRUE, sep="\t", quote= "", strip.white=TRUE, stringsAsFactors=FALSE)
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
333 }
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
334
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
335 #Create output directory
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
336 dir.create(opt$outPath, showWarnings=FALSE)
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
337
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
338 # Split up contrasts seperated by comma into a vector then sanitise
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
339 contrastData <- unlist(strsplit(opt$contrastData, split=","))
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
340 contrastData <- sanitiseEquation(contrastData)
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
341 contrastData <- gsub(" ", ".", contrastData, fixed=TRUE)
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
342
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
343 plots <- character()
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
344 if (!is.null(opt$plots)) {
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
345 plots <- unlist(strsplit(opt$plots, split=","))
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
346 }
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
347
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
348 denOutPng <- makeOut("densityplots.png")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
349 denOutPdf <- makeOut("densityplots.pdf")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
350 cpmOutPdf <- makeOut("cpmplots.pdf")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
351 boxOutPng <- makeOut("boxplots.png")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
352 boxOutPdf <- makeOut("boxplots.pdf")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
353 mdsscreeOutPng <- makeOut("mdsscree.png")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
354 mdsscreeOutPdf <- makeOut("mdsscree.pdf")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
355 mdsxOutPdf <- makeOut("mdsplot_extra.pdf")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
356 mdsxOutPng <- makeOut("mdsplot_extra.png")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
357 mdsamOutPdf <- makeOut("mdplots_samples.pdf")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
358 mdOutPdf <- character() # Initialise character vector
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
359 volOutPdf <- character()
7
5a722ae502b3 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit cf399638ebca4250bcc15f468238a9964de97b33
iuc
parents: 6
diff changeset
360 heatOutPdf <- character()
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
361 stripOutPdf <- character()
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
362 mdvolOutPng <- character()
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
363 topOut <- character()
9
a30e66a28451 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 5f8052ab47b789da5ea47feb48e1b8e08b5fc1e0
iuc
parents: 8
diff changeset
364 glimmaOut <- character()
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
365 for (i in 1:length(contrastData)) {
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
366 con <- contrastData[i]
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
367 con <- gsub("\\(|\\)", "", con)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
368 mdOutPdf[i] <- makeOut(paste0("mdplot_", con, ".pdf"))
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
369 volOutPdf[i] <- makeOut(paste0("volplot_", con, ".pdf"))
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
370 heatOutPdf[i] <- makeOut(paste0("heatmap_", con, ".pdf"))
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
371 stripOutPdf[i] <- makeOut(paste0("stripcharts_", con, ".pdf"))
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
372 mdvolOutPng[i] <- makeOut(paste0("mdvolplot_", con, ".png"))
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
373 topOut[i] <- makeOut(paste0(deMethod, "_", con, ".tsv"))
9
a30e66a28451 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 5f8052ab47b789da5ea47feb48e1b8e08b5fc1e0
iuc
parents: 8
diff changeset
374 glimmaOut[i] <- makeOut(paste0("glimma_", con, "/MD-Plot.html"))
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
375 }
13
a984bbe87e2a planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 8560b34a261fde200bd77dc2e817d55d386ac811
iuc
parents: 12
diff changeset
376 filtOut <- makeOut(paste0(deMethod, "_", "filtcounts"))
a984bbe87e2a planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 8560b34a261fde200bd77dc2e817d55d386ac811
iuc
parents: 12
diff changeset
377 normOut <- makeOut(paste0(deMethod, "_", "normcounts"))
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
378 rdaOut <- makeOut(paste0(deMethod, "_analysis.RData"))
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
379 sessionOut <- makeOut("session_info.txt")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
380
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
381 # Initialise data for html links and images, data frame with columns Label and
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
382 # Link
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
383 linkData <- data.frame(Label=character(), Link=character(),
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
384 stringsAsFactors=FALSE)
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
385 imageData <- data.frame(Label=character(), Link=character(),
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
386 stringsAsFactors=FALSE)
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
387
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
388 # Initialise vectors for storage of up/down/neutral regulated counts
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
389 upCount <- numeric()
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
390 downCount <- numeric()
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
391 flatCount <- numeric()
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
392
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
393 ################################################################################
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
394 ### Data Processing
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
395 ################################################################################
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
396
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
397 # Extract counts and annotation data
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
398 print("Extracting counts")
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
399 data <- list()
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
400 data$counts <- counts
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
401 if (haveAnno) {
4
47cf8073da69 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 6a458881c0819b75e55e64b3f494679d43bb9ee8
iuc
parents: 3
diff changeset
402 # order annotation by genes in counts (assumes gene ids are in 1st column of geneanno)
47cf8073da69 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 6a458881c0819b75e55e64b3f494679d43bb9ee8
iuc
parents: 3
diff changeset
403 annoord <- geneanno[match(row.names(counts), geneanno[,1]), ]
47cf8073da69 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 6a458881c0819b75e55e64b3f494679d43bb9ee8
iuc
parents: 3
diff changeset
404 data$genes <- annoord
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
405 } else {
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
406 data$genes <- data.frame(GeneID=row.names(counts))
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
407 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
408
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
409 # Creating naming data
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
410 samplenames <- colnames(data$counts)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
411 sampleanno <- data.frame("sampleID"=samplenames, factors)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
412
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
413 # Creating colours for the groups
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
414 cols <- as.numeric(factors[, 1])
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
415 col.group <- palette()[cols]
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
416
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
417 # If filter crieteria set, filter out genes that do not have a required cpm/counts in a required number of
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
418 # samples. Default is no filtering
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
419 preFilterCount <- nrow(data$counts)
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
420 nsamples <- ncol(data$counts)
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
421
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
422 if (filtCPM || filtSmpCount || filtTotCount) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
423
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
424 if (filtTotCount) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
425 keep <- rowSums(data$counts) >= opt$cntReq
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
426 } else if (filtSmpCount) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
427 keep <- rowSums(data$counts >= opt$cntReq) >= opt$sampleReq
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
428 } else if (filtCPM) {
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
429 myCPM <- cpm(data$counts)
14
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
430 thresh <- myCPM >= opt$cpmReq
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
431 keep <- rowSums(thresh) >= opt$sampleReq
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
432
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
433 if ("c" %in% plots) {
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
434 # Plot CPM vs raw counts (to check threshold)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
435 pdf(cpmOutPdf, width=6.5, height=10)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
436 par(mfrow=c(3, 2))
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
437 for (i in 1:nsamples) {
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
438 plot(data$counts[, i], myCPM[, i], xlim=c(0,50), ylim=c(0,3), main=samplenames[i], xlab="Raw counts", ylab="CPM")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
439 abline(v=10, col="red", lty=2, lwd=2)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
440 abline(h=opt$cpmReq, col=4)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
441 }
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
442 linkName <- "CpmPlots.pdf"
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
443 linkAddr <- "cpmplots.pdf"
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
444 linkData <- rbind(linkData, data.frame(Label=linkName, Link=linkAddr, stringsAsFactors=FALSE))
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
445 invisible(dev.off())
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
446 }
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
447 }
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
448
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
449 data$counts <- data$counts[keep, ]
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
450 data$genes <- data$genes[keep, , drop=FALSE]
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
451
12
324417ddf9b9 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 33651907e4d5d6672537b80142c022d2b4951e8c
iuc
parents: 11
diff changeset
452 if (wantFilt) {
324417ddf9b9 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 33651907e4d5d6672537b80142c022d2b4951e8c
iuc
parents: 11
diff changeset
453 print("Outputting filtered counts")
324417ddf9b9 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 33651907e4d5d6672537b80142c022d2b4951e8c
iuc
parents: 11
diff changeset
454 filt_counts <- data.frame(data$genes, data$counts)
324417ddf9b9 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 33651907e4d5d6672537b80142c022d2b4951e8c
iuc
parents: 11
diff changeset
455 write.table(filt_counts, file=filtOut, row.names=FALSE, sep="\t", quote=FALSE)
13
a984bbe87e2a planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 8560b34a261fde200bd77dc2e817d55d386ac811
iuc
parents: 12
diff changeset
456 linkData <- rbind(linkData, data.frame(Label=paste0(deMethod, "_", "filtcounts.tsv"), Link=paste0(deMethod, "_", "filtcounts"), stringsAsFactors=FALSE))
12
324417ddf9b9 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 33651907e4d5d6672537b80142c022d2b4951e8c
iuc
parents: 11
diff changeset
457 }
324417ddf9b9 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 33651907e4d5d6672537b80142c022d2b4951e8c
iuc
parents: 11
diff changeset
458
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
459 # Plot Density
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
460 if ("d" %in% plots) {
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
461 # PNG
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
462 png(denOutPng, width=1000, height=500)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
463 par(mfrow=c(1,2), cex.axis=0.8)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
464
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
465 # before filtering
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
466 lcpm1 <- cpm(counts, log=TRUE)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
467 plot(density(lcpm1[, 1]), col=col.group[1], lwd=2, las=2, main="", xlab="")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
468 title(main="Density Plot: Raw counts", xlab="Log-cpm")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
469 for (i in 2:nsamples){
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
470 den <- density(lcpm1[, i])
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
471 lines(den$x, den$y, col=col.group[i], lwd=2)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
472 }
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
473
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
474 # after filtering
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
475 lcpm2 <- cpm(data$counts, log=TRUE)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
476 plot(density(lcpm2[,1]), col=col.group[1], lwd=2, las=2, main="", xlab="")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
477 title(main="Density Plot: Filtered counts", xlab="Log-cpm")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
478 for (i in 2:nsamples){
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
479 den <- density(lcpm2[, i])
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
480 lines(den$x, den$y, col=col.group[i], lwd=2)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
481 }
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
482 legend("topright", samplenames, text.col=col.group, bty="n")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
483 imgName <- "Densityplots.png"
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
484 imgAddr <- "densityplots.png"
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
485 imageData <- rbind(imageData, data.frame(Label=imgName, Link=imgAddr, stringsAsFactors=FALSE))
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
486 invisible(dev.off())
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
487
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
488 # PDF
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
489 pdf(denOutPdf, width=14)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
490 par(mfrow=c(1,2), cex.axis=0.8)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
491 plot(density(lcpm1[, 1]), col=col.group[1], lwd=2, las=2, main="", xlab="")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
492 title(main="Density Plot: Raw counts", xlab="Log-cpm")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
493 for (i in 2:nsamples){
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
494 den <- density(lcpm1[, i])
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
495 lines(den$x, den$y, col=col.group[i], lwd=2)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
496 }
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
497 plot(density(lcpm2[, 1]), col=col.group[1], lwd=2, las=2, main="", xlab="")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
498 title(main="Density Plot: Filtered counts", xlab="Log-cpm")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
499 for (i in 2:nsamples){
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
500 den <- density(lcpm2[, i])
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
501 lines(den$x, den$y, col=col.group[i], lwd=2)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
502 }
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
503 legend("topright", samplenames, text.col=col.group, bty="n")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
504 linkName <- "DensityPlots.pdf"
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
505 linkAddr <- "densityplots.pdf"
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
506 linkData <- rbind(linkData, data.frame(Label=linkName, Link=linkAddr, stringsAsFactors=FALSE))
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
507 invisible(dev.off())
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
508 }
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
509 }
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
510
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
511 postFilterCount <- nrow(data$counts)
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
512 filteredCount <- preFilterCount-postFilterCount
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
513
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
514 # Generating the DGEList object "y"
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
515 print("Generating DGEList object")
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
516 data$samples <- sampleanno
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
517 data$samples$lib.size <- colSums(data$counts)
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
518 data$samples$norm.factors <- 1
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
519 row.names(data$samples) <- colnames(data$counts)
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
520 y <- new("DGEList", data)
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
521
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
522 print("Generating Design")
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
523 # Name rows of factors according to their sample
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
524 row.names(factors) <- names(data$counts)
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
525 factorList <- sapply(names(factors), pasteListName)
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
526 formula <- "~0"
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
527 for (i in 1:length(factorList)) {
1
3c8b816c26e7 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 58c05c0ce9334f8b9c800283cfd1f40573546edd
iuc
parents: 0
diff changeset
528 formula <- paste(formula,factorList[i], sep="+")
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
529 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
530 formula <- formula(formula)
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
531 design <- model.matrix(formula)
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
532 for (i in 1:length(factorList)) {
1
3c8b816c26e7 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 58c05c0ce9334f8b9c800283cfd1f40573546edd
iuc
parents: 0
diff changeset
533 colnames(design) <- gsub(factorList[i], "", colnames(design), fixed=TRUE)
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
534 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
535
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
536 # Calculating normalising factors
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
537 print("Calculating Normalisation Factors")
11
0433416377de planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 4bcbd83574ecf7194f3370aa883a9573563afdbc
iuc
parents: 10
diff changeset
538 logcounts <- y #store for plots
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
539 y <- calcNormFactors(y, method=opt$normOpt)
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
540
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
541 # Generate contrasts information
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
542 print("Generating Contrasts")
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
543 contrasts <- makeContrasts(contrasts=contrastData, levels=design)
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
544
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
545 ################################################################################
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
546 ### Data Output
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
547 ################################################################################
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
548
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
549 # Plot Box plots (before and after normalisation)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
550 if (opt$normOpt != "none" & "b" %in% plots) {
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
551 png(boxOutPng, width=1000, height=500)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
552 par(mfrow=c(1,2), mar=c(6,4,2,2)+0.1)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
553 labels <- colnames(counts)
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
554
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
555 lcpm1 <- cpm(y$counts, log=TRUE)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
556 boxplot(lcpm1, las=2, col=col.group, xaxt="n", xlab="")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
557 axis(1, at=seq_along(labels), labels = FALSE)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
558 abline(h=median(lcpm1), col=4)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
559 text(x=seq_along(labels), y=par("usr")[3]-1, srt=45, adj=1, labels=labels, xpd=TRUE)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
560 title(main="Box Plot: Unnormalised counts", ylab="Log-cpm")
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
561
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
562 lcpm2 <- cpm(y, log=TRUE)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
563 boxplot(lcpm2, las=2, col=col.group, xaxt="n", xlab="")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
564 axis(1, at=seq_along(labels), labels = FALSE)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
565 text(x=seq_along(labels), y=par("usr")[3]-1, srt=45, adj=1, labels=labels, xpd=TRUE)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
566 abline(h=median(lcpm2), col=4)
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
567 title(main="Box Plot: Normalised counts", ylab="Log-cpm")
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
568
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
569 imgName <- "Boxplots.png"
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
570 imgAddr <- "boxplots.png"
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
571 imageData <- rbind(imageData, data.frame(Label=imgName, Link=imgAddr, stringsAsFactors=FALSE))
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
572 invisible(dev.off())
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
573
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
574 pdf(boxOutPdf, width=14)
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
575 par(mfrow=c(1,2), mar=c(6,4,2,2)+0.1)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
576 boxplot(lcpm1, las=2, col=col.group, xaxt="n", xlab="")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
577 axis(1, at=seq_along(labels), labels = FALSE)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
578 abline(h=median(lcpm1), col=4)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
579 text(x=seq_along(labels), y=par("usr")[3]-1, srt=45, adj=1, labels=labels, xpd=TRUE)
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
580 title(main="Box Plot: Unnormalised counts", ylab="Log-cpm")
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
581 boxplot(lcpm2, las=2, col=col.group, xaxt="n", xlab="")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
582 axis(1, at=seq_along(labels), labels = FALSE)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
583 text(x=seq_along(labels), y=par("usr")[3]-1, srt=45, adj=1, labels=labels, xpd=TRUE)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
584 abline(h=median(lcpm2), col=4)
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
585 title(main="Box Plot: Normalised counts", ylab="Log-cpm")
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
586 linkName <- "BoxPlots.pdf"
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
587 linkAddr <- "boxplots.pdf"
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
588 linkData <- rbind(linkData, data.frame(Label=linkName, Link=linkAddr, stringsAsFactors=FALSE))
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
589 invisible(dev.off())
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
590 }
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
591
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
592 # Plot MDS
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
593 print("Generating MDS plot")
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
594 labels <- names(counts)
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
595
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
596 # Scree plot (Variance Explained) code copied from Glimma
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
597
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
598 # get column of matrix
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
599 getCols <- function(x, inds) {
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
600 x[, inds, drop=FALSE]
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
601 }
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
602
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
603 x <- cpm(y, log=TRUE)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
604 ndim <- nsamples - 1
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
605 nprobes <- nrow(x)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
606 top <- 500
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
607 top <- min(top, nprobes)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
608 cn <- colnames(x)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
609 bad <- rowSums(is.finite(x)) < nsamples
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
610
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
611 if (any(bad)) {
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
612 warning("Rows containing infinite values have been removed")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
613 x <- x[!bad, , drop=FALSE]
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
614 }
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
615
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
616 dd <- matrix(0, nrow=nsamples, ncol=nsamples, dimnames=list(cn, cn))
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
617 topindex <- nprobes - top + 1L
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
618 for (i in 2L:(nsamples)) {
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
619 for (j in 1L:(i - 1L)) {
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
620 dists <- (getCols(x, i) - getCols(x, j))^2
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
621 dists <- sort.int(dists, partial = topindex )
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
622 topdist <- dists[topindex:nprobes]
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
623 dd[i, j] <- sqrt(mean(topdist))
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
624 }
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
625 }
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
626
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
627 a1 <- suppressWarnings(cmdscale(as.dist(dd), k=min(ndim, 8), eig=TRUE))
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
628 eigen <- data.frame(name = 1:min(ndim, 8), eigen = round(a1$eig[1:min(ndim, 8)]/sum(a1$eig), 2))
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
629
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
630 png(mdsscreeOutPng, width=1000, height=500)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
631 par(mfrow=c(1, 2))
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
632 plotMDS(y, labels=samplenames, col=as.numeric(factors[, 1]), main="MDS Plot: Dims 1 and 2")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
633 barplot(eigen$eigen, names.arg=eigen$name, main = "Scree Plot: Variance Explained", xlab = "Dimension", ylab = "Proportion", las=1)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
634 imgName <- paste0("MDSPlot_", names(factors)[1], ".png")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
635 imgAddr <- "mdsscree.png"
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
636 imageData <- rbind(imageData, data.frame(Label=imgName, Link=imgAddr, stringsAsFactors=FALSE))
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
637 invisible(dev.off())
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
638
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
639 pdf(mdsscreeOutPdf, width=14)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
640 par(mfrow=c(1, 2))
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
641 plotMDS(y, labels=samplenames, col=as.numeric(factors[, 1]), main="MDS Plot: Dims 1 and 2")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
642 barplot(eigen$eigen, names.arg=eigen$name, main = "Scree Plot: Variance Explained", xlab = "Dimension", ylab = "Proportion", las=1)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
643 linkName <- paste0("MDSPlot_", names(factors)[1], ".pdf")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
644 linkAddr <- "mdsscree.pdf"
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
645 linkData <- rbind(linkData, data.frame(Label=linkName, Link=linkAddr, stringsAsFactors=FALSE))
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
646 invisible(dev.off())
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
647
14
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
648 # generate Glimma interactive MDS Plot
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
649 if ("i" %in% plots) {
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
650 Glimma::glMDSPlot(y, labels=samplenames, groups=factors[, 1],
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
651 folder="glimma_MDS", launch=FALSE)
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
652 linkName <- "Glimma_MDSPlot.html"
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
653 linkAddr <- "glimma_MDS/MDS-Plot.html"
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
654 linkData <- rbind(linkData, c(linkName, linkAddr))
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
655 }
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
656
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
657 if ("x" %in% plots) {
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
658 png(mdsxOutPng, width=1000, height=500)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
659 par(mfrow=c(1, 2))
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
660 for (i in 2:3) {
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
661 dim1 <- i
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
662 dim2 <- i + 1
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
663 plotMDS(y, dim=c(dim1, dim2), labels=samplenames, col=as.numeric(factors[, 1]), main=paste("MDS Plot: Dims", dim1, "and", dim2))
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
664 }
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
665 imgName <- paste0("MDSPlot_extra.png")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
666 imgAddr <- paste0("mdsplot_extra.png")
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
667 imageData <- rbind(imageData, data.frame(Label=imgName, Link=imgAddr, stringsAsFactors=FALSE))
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
668 invisible(dev.off())
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
669
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
670 pdf(mdsxOutPdf, width=14)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
671 par(mfrow=c(1, 2))
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
672 for (i in 2:3) {
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
673 dim1 <- i
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
674 dim2 <- i + 1
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
675 plotMDS(y, dim=c(dim1, dim2), labels=samplenames, col=as.numeric(factors[, 1]), main=paste("MDS Plot: Dims", dim1, "and", dim2))
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
676 }
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
677 linkName <- "MDSPlot_extra.pdf"
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
678 linkAddr <- "mdsplot_extra.pdf"
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
679 linkData <- rbind(linkData, data.frame(Label=linkName, Link=linkAddr, stringsAsFactors=FALSE))
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
680 invisible(dev.off())
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
681 }
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
682
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
683 if ("m" %in% plots) {
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
684 # Plot MD plots for individual samples
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
685 print("Generating MD plots for samples")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
686 pdf(mdsamOutPdf, width=6.5, height=10)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
687 par(mfrow=c(3, 2))
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
688 for (i in 1:nsamples) {
11
0433416377de planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 4bcbd83574ecf7194f3370aa883a9573563afdbc
iuc
parents: 10
diff changeset
689 if (opt$normOpt != "none") {
0433416377de planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 4bcbd83574ecf7194f3370aa883a9573563afdbc
iuc
parents: 10
diff changeset
690 plotMD(logcounts, column=i, main=paste(colnames(logcounts)[i], "(before)"))
0433416377de planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 4bcbd83574ecf7194f3370aa883a9573563afdbc
iuc
parents: 10
diff changeset
691 abline(h=0, col="red", lty=2, lwd=2)
0433416377de planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 4bcbd83574ecf7194f3370aa883a9573563afdbc
iuc
parents: 10
diff changeset
692 }
0433416377de planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 4bcbd83574ecf7194f3370aa883a9573563afdbc
iuc
parents: 10
diff changeset
693 plotMD(y, column=i)
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
694 abline(h=0, col="red", lty=2, lwd=2)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
695 }
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
696 linkName <- "MDPlots_Samples.pdf"
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
697 linkAddr <- "mdplots_samples.pdf"
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
698 linkData <- rbind(linkData, c(linkName, linkAddr))
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
699 invisible(dev.off())
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
700 }
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
701
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
702
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
703 if (wantTrend) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
704 # limma-trend approach
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
705 logCPM <- cpm(y, log=TRUE, prior.count=opt$trend)
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
706 fit <- lmFit(logCPM, design)
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
707 fit$genes <- y$genes
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
708 fit <- contrasts.fit(fit, contrasts)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
709 if (wantRobust) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
710 fit <- eBayes(fit, trend=TRUE, robust=TRUE)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
711 } else {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
712 fit <- eBayes(fit, trend=TRUE, robust=FALSE)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
713 }
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
714
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
715 plotData <- logCPM
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
716
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
717 # Save normalised counts (log2cpm)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
718 if (wantNorm) {
4
47cf8073da69 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 6a458881c0819b75e55e64b3f494679d43bb9ee8
iuc
parents: 3
diff changeset
719 write.table(logCPM, file=normOut, row.names=TRUE, sep="\t", quote=FALSE)
13
a984bbe87e2a planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 8560b34a261fde200bd77dc2e817d55d386ac811
iuc
parents: 12
diff changeset
720 linkData <- rbind(linkData, c((paste0(deMethod, "_", "normcounts.tsv")), (paste0(deMethod, "_", "normcounts"))))
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
721 }
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
722 } else {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
723 # limma-voom approach
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
724
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
725 if (wantWeight) {
14
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
726 voomWtsOutPdf <- makeOut("voomwtsplot.pdf")
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
727 voomWtsOutPng <- makeOut("voomwtsplot.png")
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
728 # Creating voom data object and plot
14
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
729 png(voomWtsOutPng, width=1000, height=500)
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
730 vData <- voomWithQualityWeights(y, design=design, plot=TRUE)
14
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
731 imgName <- "VoomWithQualityWeightsPlot.png"
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
732 imgAddr <- "voomwtsplot.png"
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
733 imageData <- rbind(imageData, c(imgName, imgAddr))
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
734 invisible(dev.off())
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
735
14
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
736 pdf(voomWtsOutPdf, width=14)
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
737 vData <- voomWithQualityWeights(y, design=design, plot=TRUE)
14
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
738 linkName <- "VoomWithQualityWeightsPlot.pdf"
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
739 linkAddr <- "voomwtsplot.pdf"
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
740 linkData <- rbind(linkData, c(linkName, linkAddr))
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
741 invisible(dev.off())
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
742
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
743 # Generating fit data and top table with weights
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
744 wts <- vData$weights
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
745 voomFit <- lmFit(vData, design, weights=wts)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
746
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
747 } else {
14
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
748 voomOutPdf <- makeOut("voomplot.pdf")
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
749 voomOutPng <- makeOut("voomplot.png")
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
750 # Creating voom data object and plot
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
751 png(voomOutPng, width=500, height=500)
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
752 vData <- voom(y, design=design, plot=TRUE)
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
753 imgName <- "VoomPlot"
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
754 imgAddr <- "voomplot.png"
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
755 imageData <- rbind(imageData, c(imgName, imgAddr))
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
756 invisible(dev.off())
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
757
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
758 pdf(voomOutPdf)
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
759 vData <- voom(y, design=design, plot=TRUE)
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
760 linkName <- "VoomPlot.pdf"
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
761 linkAddr <- "voomplot.pdf"
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
762 linkData <- rbind(linkData, c(linkName, linkAddr))
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
763 invisible(dev.off())
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
764
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
765 # Generate voom fit
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
766 voomFit <- lmFit(vData, design)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
767 }
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
768
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
769 # Save normalised counts (log2cpm)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
770 if (wantNorm) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
771 norm_counts <- data.frame(vData$genes, vData$E)
4
47cf8073da69 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 6a458881c0819b75e55e64b3f494679d43bb9ee8
iuc
parents: 3
diff changeset
772 write.table(norm_counts, file=normOut, row.names=FALSE, sep="\t", quote=FALSE)
13
a984bbe87e2a planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 8560b34a261fde200bd77dc2e817d55d386ac811
iuc
parents: 12
diff changeset
773 linkData <- rbind(linkData, c((paste0(deMethod, "_", "normcounts.tsv")), (paste0(deMethod, "_", "normcounts"))))
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
774 }
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
775
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
776 # Fit linear model and estimate dispersion with eBayes
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
777 voomFit <- contrasts.fit(voomFit, contrasts)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
778 if (wantRobust) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
779 fit <- eBayes(voomFit, robust=TRUE)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
780 } else {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
781 fit <- eBayes(voomFit, robust=FALSE)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
782 }
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
783 plotData <- vData
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
784 }
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
785
14
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
786 # plot final model mean-variance trend with plotSA
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
787 saOutPng <- makeOut("saplot.png")
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
788 saOutPdf <- makeOut("saplot.pdf")
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
789
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
790 png(saOutPng, width=500, height=500)
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
791 plotSA(fit, main="Final model: Mean-variance trend (SA Plot)")
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
792 imgName <- "SAPlot.png"
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
793 imgAddr <- "saplot.png"
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
794 imageData <- rbind(imageData, c(imgName, imgAddr))
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
795 invisible(dev.off())
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
796
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
797 pdf(saOutPdf)
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
798 plotSA(fit, main="Final model: Mean-variance trend (SA Plot)")
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
799 linkName <- "SAPlot.pdf"
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
800 linkAddr <- "saplot.pdf"
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
801 linkData <- rbind(linkData, c(linkName, linkAddr))
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
802 invisible(dev.off())
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
803
11
0433416377de planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 4bcbd83574ecf7194f3370aa883a9573563afdbc
iuc
parents: 10
diff changeset
804 # Save library size info
0433416377de planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 4bcbd83574ecf7194f3370aa883a9573563afdbc
iuc
parents: 10
diff changeset
805 if (wantLibinfo) {
0433416377de planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 4bcbd83574ecf7194f3370aa883a9573563afdbc
iuc
parents: 10
diff changeset
806 efflibsize <- round(y$samples$lib.size * y$samples$norm.factors)
0433416377de planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 4bcbd83574ecf7194f3370aa883a9573563afdbc
iuc
parents: 10
diff changeset
807 libsizeinfo <- cbind(y$samples, EffectiveLibrarySize=efflibsize)
0433416377de planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 4bcbd83574ecf7194f3370aa883a9573563afdbc
iuc
parents: 10
diff changeset
808 libsizeinfo$lib.size <- round(libsizeinfo$lib.size)
0433416377de planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 4bcbd83574ecf7194f3370aa883a9573563afdbc
iuc
parents: 10
diff changeset
809 names(libsizeinfo)[names(libsizeinfo)=="sampleID"] <- "SampleID"
0433416377de planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 4bcbd83574ecf7194f3370aa883a9573563afdbc
iuc
parents: 10
diff changeset
810 names(libsizeinfo)[names(libsizeinfo)=="lib.size"] <- "LibrarySize"
0433416377de planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 4bcbd83574ecf7194f3370aa883a9573563afdbc
iuc
parents: 10
diff changeset
811 names(libsizeinfo)[names(libsizeinfo)=="norm.factors"] <- "NormalisationFactor"
0433416377de planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 4bcbd83574ecf7194f3370aa883a9573563afdbc
iuc
parents: 10
diff changeset
812 write.table(libsizeinfo, file="libsizeinfo", row.names=FALSE, sep="\t", quote=FALSE)
0433416377de planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 4bcbd83574ecf7194f3370aa883a9573563afdbc
iuc
parents: 10
diff changeset
813 }
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
814
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
815 print("Generating DE results")
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
816
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
817 if (wantTreat) {
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
818 print("Applying TREAT method")
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
819 if (wantRobust) {
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
820 fit <- treat(fit, lfc=opt$lfcReq, robust=TRUE)
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
821 } else {
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
822 fit <- treat(fit, lfc=opt$lfcReq, robust=FALSE)
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
823 }
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
824 }
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
825
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
826 status = decideTests(fit, adjust.method=opt$pAdjOpt, p.value=opt$pValReq,
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
827 lfc=opt$lfcReq)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
828 sumStatus <- summary(status)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
829
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
830 for (i in 1:length(contrastData)) {
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
831 con <- contrastData[i]
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
832 con <- gsub("\\(|\\)", "", con)
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
833 # Collect counts for differential expression
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
834 upCount[i] <- sumStatus["Up", i]
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
835 downCount[i] <- sumStatus["Down", i]
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
836 flatCount[i] <- sumStatus["NotSig", i]
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
837
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
838 # Write top expressions table
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
839 if (wantTreat) {
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
840 top <- topTreat(fit, coef=i, number=Inf, sort.by="P")
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
841 } else{
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
842 top <- topTable(fit, coef=i, number=Inf, sort.by="P")
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
843 }
4
47cf8073da69 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 6a458881c0819b75e55e64b3f494679d43bb9ee8
iuc
parents: 3
diff changeset
844 write.table(top, file=topOut[i], row.names=FALSE, sep="\t", quote=FALSE)
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
845 linkName <- paste0(deMethod, "_", con, ".tsv")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
846 linkAddr <- paste0(deMethod, "_", con, ".tsv")
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
847 linkData <- rbind(linkData, c(linkName, linkAddr))
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
848
5
ffa5acf8826c planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 5f0db9544002b02d3ccffb8c983b5c8baef6bacd
iuc
parents: 4
diff changeset
849 # Plot MD (log ratios vs mean average) using limma package on weighted
ffa5acf8826c planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 5f0db9544002b02d3ccffb8c983b5c8baef6bacd
iuc
parents: 4
diff changeset
850 pdf(mdOutPdf[i])
ffa5acf8826c planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 5f0db9544002b02d3ccffb8c983b5c8baef6bacd
iuc
parents: 4
diff changeset
851 limma::plotMD(fit, status=status[, i], coef=i,
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
852 main=paste("MD Plot:", unmake.names(con)),
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
853 hl.col=alpha(c("firebrick", "blue"), 0.4), values=c(1, -1),
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
854 xlab="Average Expression", ylab="logFC")
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
855 abline(h=0, col="grey", lty=2)
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
856 linkName <- paste0("MDPlot_", con, ".pdf")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
857 linkAddr <- paste0("mdplot_", con, ".pdf")
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
858 linkData <- rbind(linkData, c(linkName, linkAddr))
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
859 invisible(dev.off())
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
860
14
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
861 # Generate Glimma interactive Volcano, MD plot and tables, requires annotation file (assumes gene labels/symbols in 2nd column)
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
862 if ("i" %in% plots & haveAnno) {
10
009d442415b7 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c31767d02eeeda7346bb33ba71ebde9189d7e4a3
iuc
parents: 9
diff changeset
863 # make gene labels unique to handle NAs
009d442415b7 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c31767d02eeeda7346bb33ba71ebde9189d7e4a3
iuc
parents: 9
diff changeset
864 geneanno <- y$genes
009d442415b7 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c31767d02eeeda7346bb33ba71ebde9189d7e4a3
iuc
parents: 9
diff changeset
865 geneanno[, 2] <- make.unique(geneanno[, 2])
14
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
866
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
867 # MD plot
10
009d442415b7 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c31767d02eeeda7346bb33ba71ebde9189d7e4a3
iuc
parents: 9
diff changeset
868 Glimma::glMDPlot(fit, coef=i, counts=y$counts, anno=geneanno, groups=factors[, 1],
9
a30e66a28451 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 5f8052ab47b789da5ea47feb48e1b8e08b5fc1e0
iuc
parents: 8
diff changeset
869 status=status[, i], sample.cols=col.group,
a30e66a28451 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 5f8052ab47b789da5ea47feb48e1b8e08b5fc1e0
iuc
parents: 8
diff changeset
870 main=paste("MD Plot:", unmake.names(con)), side.main=colnames(y$genes)[2],
a30e66a28451 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 5f8052ab47b789da5ea47feb48e1b8e08b5fc1e0
iuc
parents: 8
diff changeset
871 folder=paste0("glimma_", unmake.names(con)), launch=FALSE)
a30e66a28451 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 5f8052ab47b789da5ea47feb48e1b8e08b5fc1e0
iuc
parents: 8
diff changeset
872 linkName <- paste0("Glimma_MDPlot_", con, ".html")
a30e66a28451 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 5f8052ab47b789da5ea47feb48e1b8e08b5fc1e0
iuc
parents: 8
diff changeset
873 linkAddr <- paste0("glimma_", con, "/MD-Plot.html")
a30e66a28451 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 5f8052ab47b789da5ea47feb48e1b8e08b5fc1e0
iuc
parents: 8
diff changeset
874 linkData <- rbind(linkData, c(linkName, linkAddr))
14
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
875
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
876 # Volcano plot
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
877 Glimma::glXYPlot(x=fit$coefficients[, i], y=fit$lods[, i], counts=y$counts, anno=geneanno, groups=factors[, 1],
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
878 status=status[, i], sample.cols=col.group,
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
879 main=paste("Volcano Plot:", unmake.names(con)), side.main=colnames(y$genes)[2],
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
880 xlab="logFC", ylab="logodds",
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
881 folder=paste0("glimma_volcano_", unmake.names(con)), launch=FALSE)
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
882 linkName <- paste0("Glimma_VolcanoPlot_", con, ".html")
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
883 linkAddr <- paste0("glimma_volcano_", con, "/XY-Plot.html")
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
884 linkData <- rbind(linkData, c(linkName, linkAddr))
9
a30e66a28451 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 5f8052ab47b789da5ea47feb48e1b8e08b5fc1e0
iuc
parents: 8
diff changeset
885 }
a30e66a28451 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 5f8052ab47b789da5ea47feb48e1b8e08b5fc1e0
iuc
parents: 8
diff changeset
886
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
887 # Plot Volcano
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
888 pdf(volOutPdf[i])
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
889 if (haveAnno) {
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
890 # labels must be in second column currently
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
891 labels <- fit$genes[, 2]
7
5a722ae502b3 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit cf399638ebca4250bcc15f468238a9964de97b33
iuc
parents: 6
diff changeset
892 } else {
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
893 labels <- fit$genes$GeneID
7
5a722ae502b3 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit cf399638ebca4250bcc15f468238a9964de97b33
iuc
parents: 6
diff changeset
894 }
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
895 limma::volcanoplot(fit, coef=i,
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
896 main=paste("Volcano Plot:", unmake.names(con)),
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
897 highlight=opt$topgenes,
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
898 names=labels)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
899 linkName <- paste0("VolcanoPlot_", con, ".pdf")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
900 linkAddr <- paste0("volplot_", con, ".pdf")
7
5a722ae502b3 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit cf399638ebca4250bcc15f468238a9964de97b33
iuc
parents: 6
diff changeset
901 linkData <- rbind(linkData, c(linkName, linkAddr))
5a722ae502b3 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit cf399638ebca4250bcc15f468238a9964de97b33
iuc
parents: 6
diff changeset
902 invisible(dev.off())
5a722ae502b3 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit cf399638ebca4250bcc15f468238a9964de97b33
iuc
parents: 6
diff changeset
903
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
904 # PNG of MD and Volcano
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
905 png(mdvolOutPng[i], width=1000, height=500)
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
906 par(mfrow=c(1, 2), mar=c(5,4,2,2)+0.1, oma=c(0,0,3,0))
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
907
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
908 # MD plot
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
909 limma::plotMD(fit, status=status[, i], coef=i, main="MD Plot",
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
910 hl.col=alpha(c("firebrick", "blue"), 0.4), values=c(1, -1),
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
911 xlab="Average Expression", ylab="logFC")
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
912 abline(h=0, col="grey", lty=2)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
913
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
914 # Volcano
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
915 if (haveAnno) {
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
916 # labels must be in second column currently
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
917 limma::volcanoplot(fit, coef=i, main="Volcano Plot",
7
5a722ae502b3 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit cf399638ebca4250bcc15f468238a9964de97b33
iuc
parents: 6
diff changeset
918 highlight=opt$topgenes,
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
919 names=fit$genes[, 2])
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
920 } else {
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
921 limma::volcanoplot(fit, coef=i, main="Volcano Plot",
7
5a722ae502b3 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit cf399638ebca4250bcc15f468238a9964de97b33
iuc
parents: 6
diff changeset
922 highlight=opt$topgenes,
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
923 names=fit$genes$GeneID)
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
924 }
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
925
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
926 imgName <- paste0("MDVolPlot_", con)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
927 imgAddr <- paste0("mdvolplot_", con, ".png")
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
928 imageData <- rbind(imageData, c(imgName, imgAddr))
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
929 title(paste0("Contrast: ", unmake.names(con)), outer=TRUE, cex.main=1.5)
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
930 invisible(dev.off())
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
931
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
932 if ("h" %in% plots) {
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
933 # Plot Heatmap
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
934 topgenes <- rownames(top[1:opt$topgenes, ])
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
935 if (wantTrend) {
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
936 topexp <- plotData[topgenes, ]
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
937 } else {
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
938 topexp <- plotData$E[topgenes, ]
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
939 }
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
940 pdf(heatOutPdf[i])
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
941 mycol <- colorpanel(1000,"blue","white","red")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
942 if (haveAnno) {
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
943 # labels must be in second column currently
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
944 labels <- top[topgenes, 2]
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
945 } else {
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
946 labels <- rownames(topexp)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
947 }
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
948 heatmap.2(topexp, scale="row", Colv=FALSE, Rowv=FALSE, dendrogram="none",
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
949 main=paste("Contrast:", unmake.names(con), "\nTop", opt$topgenes, "genes by adj.P.Val"),
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
950 trace="none", density.info="none", lhei=c(2,10), margin=c(8, 6), labRow=labels, cexRow=0.7, srtCol=45,
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
951 col=mycol, ColSideColors=col.group)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
952 linkName <- paste0("Heatmap_", con, ".pdf")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
953 linkAddr <- paste0("heatmap_", con, ".pdf")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
954 linkData <- rbind(linkData, c(linkName, linkAddr))
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
955 invisible(dev.off())
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
956 }
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
957
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
958 if ("s" %in% plots) {
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
959 # Plot Stripcharts of top genes
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
960 pdf(stripOutPdf[i], title=paste("Contrast:", unmake.names(con)))
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
961 par(mfrow = c(3,2), cex.main=0.8, cex.axis=0.8)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
962 cols <- unique(col.group)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
963
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
964 for (j in 1:length(topgenes)) {
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
965 lfc <- round(top[topgenes[j], "logFC"], 2)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
966 pval <- round(top[topgenes[j], "adj.P.Val"], 5)
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
967 if (wantTrend) {
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
968 stripchart(plotData[topgenes[j], ] ~ factors[, 1], vertical=TRUE, las=2, pch=16, cex=0.8, cex.lab=0.8, col=cols,
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
969 method="jitter", ylab="Normalised log2 expression", main=paste0(labels[j], "\nlogFC=", lfc, ", adj.P.Val=", pval))
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
970 } else {
14
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
971 stripchart(plotData$E[topgenes[j], ] ~ factors[, 1], vertical=TRUE, las=2, pch=16, cex=0.8, cex.lab=0.8, col=cols,
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
972 method="jitter", ylab="Normalised log2 expression", main=paste0(labels[j], "\nlogFC=", lfc, ", adj.P.Val=", pval))
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
973 }
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
974 }
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
975 linkName <- paste0("Stripcharts_", con, ".pdf")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
976 linkAddr <- paste0("stripcharts_", con, ".pdf")
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
977 linkData <- rbind(linkData, c(linkName, linkAddr))
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
978 invisible(dev.off())
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
979 }
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
980 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
981 sigDiff <- data.frame(Up=upCount, Flat=flatCount, Down=downCount)
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
982 row.names(sigDiff) <- contrastData
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
983
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
984 # Save relevant items as rda object
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
985 if (wantRda) {
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
986 print("Saving RData")
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
987 if (wantWeight) {
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
988 save(counts, data, y, status, plotData, labels, factors, wts, fit, top, contrastData, contrasts, design,
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
989 file=rdaOut, ascii=TRUE)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
990 } else {
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
991 save(counts, data, y, status, plotData, labels, factors, fit, top, contrastData, contrasts, design,
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
992 file=rdaOut, ascii=TRUE)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
993 }
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
994 linkData <- rbind(linkData, c((paste0(deMethod, "_analysis.RData")), (paste0(deMethod, "_analysis.RData"))))
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
995 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
996
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
997 # Record session info
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
998 writeLines(capture.output(sessionInfo()), sessionOut)
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
999 linkData <- rbind(linkData, c("Session Info", "session_info.txt"))
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1000
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1001 # Record ending time and calculate total run time
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1002 timeEnd <- as.character(Sys.time())
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1003 timeTaken <- capture.output(round(difftime(timeEnd,timeStart), digits=3))
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1004 timeTaken <- gsub("Time difference of ", "", timeTaken, fixed=TRUE)
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1005 ################################################################################
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1006 ### HTML Generation
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1007 ################################################################################
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1008
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1009 # Clear file
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1010 cat("", file=opt$htmlPath)
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1011
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1012 cata("<html>\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1013
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1014 cata("<body>\n")
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1015 cata("<h3>Limma Analysis Output:</h3>\n")
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
1016 cata("Links to PDF copies of plots are in 'Plots' section below <br />\n")
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1017
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
1018 for (i in 1:nrow(imageData)) {
14
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
1019 if (grepl("density|box|mds|mdvol|wts", imageData$Link[i])) {
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
1020 HtmlImage(imageData$Link[i], imageData$Label[i], width=1000)
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
1021 } else {
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
1022 HtmlImage(imageData$Link[i], imageData$Label[i])
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
1023 }
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1024 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1025
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1026 cata("<h4>Differential Expression Counts:</h4>\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1027
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1028 cata("<table border=\"1\" cellpadding=\"4\">\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1029 cata("<tr>\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1030 TableItem()
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1031 for (i in colnames(sigDiff)) {
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1032 TableHeadItem(i)
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1033 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1034 cata("</tr>\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1035 for (i in 1:nrow(sigDiff)) {
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1036 cata("<tr>\n")
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1037 TableHeadItem(unmake.names(row.names(sigDiff)[i]))
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1038 for (j in 1:ncol(sigDiff)) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1039 TableItem(as.character(sigDiff[i, j]))
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1040 }
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1041 cata("</tr>\n")
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1042 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1043 cata("</table>")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1044
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1045 cata("<h4>Plots:</h4>\n")
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
1046 #PDFs
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1047 for (i in 1:nrow(linkData)) {
14
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
1048 if (grepl("density|cpm|boxplot|mds|mdplots|voom|saplot", linkData$Link[i])) {
8
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
1049 HtmlLink(linkData$Link[i], linkData$Label[i])
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
1050 }
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
1051 }
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
1052
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
1053 for (i in 1:nrow(linkData)) {
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
1054 if (grepl("mdplot_", linkData$Link[i])) {
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
1055 HtmlLink(linkData$Link[i], linkData$Label[i])
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
1056 }
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
1057 }
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
1058
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
1059 for (i in 1:nrow(linkData)) {
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
1060 if (grepl("volplot", linkData$Link[i])) {
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
1061 HtmlLink(linkData$Link[i], linkData$Label[i])
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
1062 }
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
1063 }
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
1064
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
1065 for (i in 1:nrow(linkData)) {
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
1066 if (grepl("heatmap", linkData$Link[i])) {
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
1067 HtmlLink(linkData$Link[i], linkData$Label[i])
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
1068 }
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
1069 }
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
1070
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
1071 for (i in 1:nrow(linkData)) {
87f26da8078e planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 48125e8638453668f889a67791421f14d3ebe623
iuc
parents: 7
diff changeset
1072 if (grepl("stripcharts", linkData$Link[i])) {
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1073 HtmlLink(linkData$Link[i], linkData$Label[i])
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1074 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1075 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1076
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1077 cata("<h4>Tables:</h4>\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1078 for (i in 1:nrow(linkData)) {
13
a984bbe87e2a planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 8560b34a261fde200bd77dc2e817d55d386ac811
iuc
parents: 12
diff changeset
1079 if (grepl("counts$", linkData$Link[i])) {
a984bbe87e2a planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 8560b34a261fde200bd77dc2e817d55d386ac811
iuc
parents: 12
diff changeset
1080 HtmlLink(linkData$Link[i], linkData$Label[i])
a984bbe87e2a planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 8560b34a261fde200bd77dc2e817d55d386ac811
iuc
parents: 12
diff changeset
1081 } else if (grepl(".tsv", linkData$Link[i])) {
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1082 HtmlLink(linkData$Link[i], linkData$Label[i])
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1083 }
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1084 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1085
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1086 if (wantRda) {
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1087 cata("<h4>R Data Object:</h4>\n")
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1088 for (i in 1:nrow(linkData)) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1089 if (grepl(".RData", linkData$Link[i])) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1090 HtmlLink(linkData$Link[i], linkData$Label[i])
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1091 }
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1092 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1093 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1094
14
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
1095 if ("i" %in% plots) {
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
1096 cata("<h4>Glimma Interactive Results:</h4>\n")
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
1097 for (i in 1:nrow(linkData)) {
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
1098 if (grepl("glimma", linkData$Link[i])) {
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
1099 HtmlLink(linkData$Link[i], linkData$Label[i])
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
1100 }
9
a30e66a28451 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 5f8052ab47b789da5ea47feb48e1b8e08b5fc1e0
iuc
parents: 8
diff changeset
1101 }
14
94f82c79fa66 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit c915bd7e68cb3a2944397aaf184c2b1db97cb3a5
iuc
parents: 13
diff changeset
1102 }
9
a30e66a28451 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 5f8052ab47b789da5ea47feb48e1b8e08b5fc1e0
iuc
parents: 8
diff changeset
1103
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1104 cata("<p>Alt-click links to download file.</p>\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1105 cata("<p>Click floppy disc icon associated history item to download ")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1106 cata("all files.</p>\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1107 cata("<p>.tsv files can be viewed in Excel or any spreadsheet program.</p>\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1108
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1109 cata("<h4>Additional Information</h4>\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1110 cata("<ul>\n")
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1111
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1112 if (filtCPM || filtSmpCount || filtTotCount) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1113 if (filtCPM) {
5
ffa5acf8826c planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 5f0db9544002b02d3ccffb8c983b5c8baef6bacd
iuc
parents: 4
diff changeset
1114 tempStr <- paste("Genes without more than", opt$cpmReq,
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1115 "CPM in at least", opt$sampleReq, "samples are insignificant",
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1116 "and filtered out.")
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1117 } else if (filtSmpCount) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1118 tempStr <- paste("Genes without more than", opt$cntReq,
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1119 "counts in at least", opt$sampleReq, "samples are insignificant",
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1120 "and filtered out.")
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1121 } else if (filtTotCount) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1122 tempStr <- paste("Genes without more than", opt$cntReq,
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1123 "counts, after summing counts for all samples, are insignificant",
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1124 "and filtered out.")
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1125 }
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1126
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1127 ListItem(tempStr)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1128 filterProp <- round(filteredCount/preFilterCount*100, digits=2)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1129 tempStr <- paste0(filteredCount, " of ", preFilterCount," (", filterProp,
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1130 "%) genes were filtered out for low expression.")
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1131 ListItem(tempStr)
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1132 }
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1133 ListItem(opt$normOpt, " was the method used to normalise library sizes.")
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1134 if (wantTrend) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1135 ListItem("The limma-trend method was used.")
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1136 } else {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1137 ListItem("The limma-voom method was used.")
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1138 }
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1139 if (wantWeight) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1140 ListItem("Weights were applied to samples.")
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1141 } else {
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1142 ListItem("Weights were not applied to samples.")
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1143 }
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
1144 if (wantTreat) {
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
1145 ListItem(paste("Testing significance relative to a fold-change threshold (TREAT) was performed using a threshold of log2 =", opt$lfcReq, "at FDR of", opt$pValReq, "."))
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
1146 }
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1147 if (wantRobust) {
6
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
1148 if (wantTreat) {
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
1149 ListItem("TREAT was used with robust settings (robust=TRUE).")
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
1150 } else {
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
1151 ListItem("eBayes was used with robust settings (robust=TRUE).")
6c9be744c932 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 60cae222b10f43f830936c19298bd723ac47e43d
iuc
parents: 5
diff changeset
1152 }
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1153 }
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1154 if (opt$pAdjOpt!="none") {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1155 if (opt$pAdjOpt=="BH" || opt$pAdjOpt=="BY") {
5
ffa5acf8826c planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 5f0db9544002b02d3ccffb8c983b5c8baef6bacd
iuc
parents: 4
diff changeset
1156 tempStr <- paste0("MD Plot highlighted genes are significant at FDR ",
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1157 "of ", opt$pValReq," and exhibit log2-fold-change of at ",
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1158 "least ", opt$lfcReq, ".")
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1159 ListItem(tempStr)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1160 } else if (opt$pAdjOpt=="holm") {
5
ffa5acf8826c planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 5f0db9544002b02d3ccffb8c983b5c8baef6bacd
iuc
parents: 4
diff changeset
1161 tempStr <- paste0("MD Plot highlighted genes are significant at adjusted ",
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1162 "p-value of ", opt$pValReq," by the Holm(1979) ",
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1163 "method, and exhibit log2-fold-change of at least ",
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1164 opt$lfcReq, ".")
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1165 ListItem(tempStr)
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1166 }
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1167 } else {
5
ffa5acf8826c planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 5f0db9544002b02d3ccffb8c983b5c8baef6bacd
iuc
parents: 4
diff changeset
1168 tempStr <- paste0("MD Plot highlighted genes are significant at p-value ",
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1169 "of ", opt$pValReq," and exhibit log2-fold-change of at ",
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1170 "least ", opt$lfcReq, ".")
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1171 ListItem(tempStr)
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1172 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1173 cata("</ul>\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1174
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1175 cata("<h4>Summary of experimental data:</h4>\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1176
1
3c8b816c26e7 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 58c05c0ce9334f8b9c800283cfd1f40573546edd
iuc
parents: 0
diff changeset
1177 cata("<p>*CHECK THAT SAMPLES ARE ASSOCIATED WITH CORRECT GROUP(S)*</p>\n")
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1178
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1179 cata("<table border=\"1\" cellpadding=\"3\">\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1180 cata("<tr>\n")
1
3c8b816c26e7 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 58c05c0ce9334f8b9c800283cfd1f40573546edd
iuc
parents: 0
diff changeset
1181 TableHeadItem("SampleID")
3c8b816c26e7 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 58c05c0ce9334f8b9c800283cfd1f40573546edd
iuc
parents: 0
diff changeset
1182 TableHeadItem(names(factors)[1]," (Primary Factor)")
3c8b816c26e7 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 58c05c0ce9334f8b9c800283cfd1f40573546edd
iuc
parents: 0
diff changeset
1183
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1184 if (ncol(factors) > 1) {
2
8a9806150b19 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 346319bd01bfd51f02d656e653a93f0bd1e954aa
iuc
parents: 1
diff changeset
1185 for (i in names(factors)[2:length(names(factors))]) {
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1186 TableHeadItem(i)
2
8a9806150b19 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 346319bd01bfd51f02d656e653a93f0bd1e954aa
iuc
parents: 1
diff changeset
1187 }
8a9806150b19 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 346319bd01bfd51f02d656e653a93f0bd1e954aa
iuc
parents: 1
diff changeset
1188 cata("</tr>\n")
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1189 }
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1190
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1191 for (i in 1:nrow(factors)) {
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1192 cata("<tr>\n")
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1193 TableHeadItem(row.names(factors)[i])
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1194 for (j in 1:ncol(factors)) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1195 TableItem(as.character(unmake.names(factors[i, j])))
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1196 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1197 cata("</tr>\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1198 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1199 cata("</table>")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1200
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1201 cit <- character()
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1202 link <- character()
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1203 link[1] <- paste0("<a href=\"",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1204 "http://www.bioconductor.org/packages/release/bioc/",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1205 "vignettes/limma/inst/doc/usersguide.pdf",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1206 "\">", "limma User's Guide", "</a>.")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1207
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1208 link[2] <- paste0("<a href=\"",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1209 "http://www.bioconductor.org/packages/release/bioc/",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1210 "vignettes/edgeR/inst/doc/edgeRUsersGuide.pdf",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1211 "\">", "edgeR User's Guide", "</a>")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1212
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1213 cit[1] <- paste("Please cite the following paper for this tool:")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1214
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1215 cit[2] <- paste("Liu R, Holik AZ, Su S, Jansz N, Chen K, Leong HS, Blewitt ME,",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1216 "Asselin-Labat ML, Smyth GK, Ritchie ME (2015). Why weight? ",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1217 "Modelling sample and observational level variability improves power ",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1218 "in RNA-seq analyses. Nucleic Acids Research, 43(15), e97.")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1219
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1220 cit[3] <- paste("Please cite the paper below for the limma software itself.",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1221 "Please also try to cite the appropriate methodology articles",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1222 "that describe the statistical methods implemented in limma,",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1223 "depending on which limma functions you are using. The",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1224 "methodology articles are listed in Section 2.1 of the",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1225 link[1],
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1226 "Cite no. 3 only if sample weights were used.")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1227 cit[4] <- paste("Smyth GK (2005). Limma: linear models for microarray data.",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1228 "In: 'Bioinformatics and Computational Biology Solutions using",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1229 "R and Bioconductor'. R. Gentleman, V. Carey, S. doit,.",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1230 "Irizarry, W. Huber (eds), Springer, New York, pages 397-420.")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1231 cit[5] <- paste("Please cite the first paper for the software itself and the",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1232 "other papers for the various original statistical methods",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1233 "implemented in edgeR. See Section 1.2 in the", link[2],
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1234 "for more detail.")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1235 cit[6] <- paste("Robinson MD, McCarthy DJ and Smyth GK (2010). edgeR: a",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1236 "Bioconductor package for differential expression analysis",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1237 "of digital gene expression data. Bioinformatics 26, 139-140")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1238 cit[7] <- paste("Robinson MD and Smyth GK (2007). Moderated statistical tests",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1239 "for assessing differences in tag abundance. Bioinformatics",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1240 "23, 2881-2887")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1241 cit[8] <- paste("Robinson MD and Smyth GK (2008). Small-sample estimation of",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1242 "negative binomial dispersion, with applications to SAGE data.",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1243 "Biostatistics, 9, 321-332")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1244 cit[9] <- paste("McCarthy DJ, Chen Y and Smyth GK (2012). Differential",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1245 "expression analysis of multifactor RNA-Seq experiments with",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1246 "respect to biological variation. Nucleic Acids Research 40,",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1247 "4288-4297")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1248 cit[10] <- paste("Law CW, Chen Y, Shi W, and Smyth GK (2014). Voom:",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1249 "precision weights unlock linear model analysis tools for",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1250 "RNA-seq read counts. Genome Biology 15, R29.")
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1251 cit[11] <- paste("Ritchie ME, Diyagama D, Neilson J, van Laar R,",
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1252 "Dobrovic A, Holloway A and Smyth GK (2006).",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1253 "Empirical array quality weights for microarray data.",
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1254 "BMC Bioinformatics 7, Article 261.")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1255 cata("<h3>Citations</h3>\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1256 cata(cit[1], "\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1257 cata("<br>\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1258 cata(cit[2], "\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1259
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1260 cata("<h4>limma</h4>\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1261 cata(cit[3], "\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1262 cata("<ol>\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1263 ListItem(cit[4])
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1264 ListItem(cit[10])
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1265 ListItem(cit[11])
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1266 cata("</ol>\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1267
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1268 cata("<h4>edgeR</h4>\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1269 cata(cit[5], "\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1270 cata("<ol>\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1271 ListItem(cit[6])
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1272 ListItem(cit[7])
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1273 ListItem(cit[8])
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1274 ListItem(cit[9])
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1275 cata("</ol>\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1276
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1277 cata("<p>Please report problems or suggestions to: su.s@wehi.edu.au</p>\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1278
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1279 for (i in 1:nrow(linkData)) {
3
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1280 if (grepl("session_info", linkData$Link[i])) {
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1281 HtmlLink(linkData$Link[i], linkData$Label[i])
895d310ddb21 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 1640914b9812b0482a3cf684f05465f8d9cfdc65
iuc
parents: 2
diff changeset
1282 }
0
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1283 }
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1284
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1285 cata("<table border=\"0\">\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1286 cata("<tr>\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1287 TableItem("Task started at:"); TableItem(timeStart)
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1288 cata("</tr>\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1289 cata("<tr>\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1290 TableItem("Task ended at:"); TableItem(timeEnd)
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1291 cata("</tr>\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1292 cata("<tr>\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1293 TableItem("Task run time:"); TableItem(timeTaken)
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1294 cata("<tr>\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1295 cata("</table>\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1296
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1297 cata("</body>\n")
bacbc977c562 planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/limma_voom commit 2f34a215c35f08c3666f314a87d235437baa1d21
iuc
parents:
diff changeset
1298 cata("</html>")