annotate limma_voom.R @ 24:32511f586472 draft

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