Mercurial > repos > eschen42 > mqppep_anova

annotate mqppep_anova_script.Rmd @ 13:b41a077af3aa draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
"planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
author eschen42
date Tue, 22 Mar 2022 20:47:40 +0000
parents 4deacfee76ef
children 6679616d0c18
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1 ---
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
2 title: "MaxQuant Phospho-Proteomic Enrichment Pipeline ANOVA"
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
3 author: "Larry Cheng; Art Eschenlauer"
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
4 date: "May 28, 2018; Mar 16, 2022"
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
5 output:
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
6 pdf_document:
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
7 toc: true
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
8 latex_document:
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
9 toc: true
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
10 params:
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
11 inputFile: "test-data/test_input_for_anova.tabular"
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
12 alphaFile: "test-data/alpha_levels.tabular"
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
13 firstDataColumn: "Intensity"
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
14 imputationMethod: !r c("group-median", "median", "mean", "random")[1]
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
15 meanPercentile: 1
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
16 sdPercentile: 1.0
12
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
17 regexSampleNames: "\\.\\d+[A-Z]$"
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
18 regexSampleGrouping: "\\d+"
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
19 imputedDataFilename: "test-data/imputedDataFilename.txt"
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
20 imputedQNLTDataFile: "test-data/imputedQNLTDataFile.txt"
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
21 show_toc: true
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
22 ---
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
23 <!--
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
24 latex_document: default
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
25 inputFile: "test-data/test_input_for_anova.tabular"
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
26 inputFile: "test-data/density_failure.preproc_tab.tabular"
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
27 inputFile: "test-data/UT_Phospho_STY_Sites.preproc_tab"
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
28 date: "May 28, 2018; Mar 16, 2022"
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
29 -->
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
30 ```{r setup, include = FALSE}
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
31 # ref for parameterizing Rmd document: https://stackoverflow.com/a/37940285
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
32 knitr::opts_chunk$set(echo = FALSE, fig.dim = c(9, 10))
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
33
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
34 # freeze the random number generator so the same results will be produced
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
35 # from run to run
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
36 set.seed(28571)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
37
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
38 ### CONSTANTS
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
39
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
40 const_parfin <- par("fin")
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
41 const_boxplot_fill <- "grey94"
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
42 const_stripchart_cex <- 0.5
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
43 const_stripsmall_cex <-
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
44 sqrt(const_stripchart_cex * const_stripchart_cex / 2)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
45 const_stripchart_jitter <- 0.3
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
46 const_write_debug_files <- FALSE
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
47
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
48 ### FUNCTIONS
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
49
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
50 #ANOVA filter function
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
51 anova_func <- function(x, grouping_factor) {
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
52 x_aov <- aov(as.numeric(x) ~ grouping_factor)
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
53 pvalue <- summary(x_aov)[[1]][["Pr(>F)"]][1]
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
54 pvalue
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
55 }
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
56
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
57 write_debug_file <- function(s) {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
58 if (const_write_debug_files) {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
59 s_path <- sprintf("test-data/%s.txt", deparse(substitute(s)))
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
60 write.table(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
61 s,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
62 file = s_path,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
63 sep = "\t",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
64 col.names = TRUE,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
65 row.names = TRUE,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
66 quote = FALSE
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
67 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
68 }
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
69 }
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
70
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
71 latex_collapsed_vector <- function(collapse_string, v) {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
72 cat(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
73 paste0(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
74 gsub("_", "\\\\_", v),
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
75 collapse = collapse_string
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
76 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
77 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
78 }
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
79
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
80 latex_itemized_collapsed <- function(collapse_string, v) {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
81 cat("\\begin{itemize}\n\\item ")
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
82 latex_collapsed_vector(collapse_string, v)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
83 cat("\n\\end{itemize}\n")
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
84 }
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
85
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
86 latex_itemized_list <- function(v) {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
87 latex_itemized_collapsed("\n\\item ", v)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
88 }
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
89
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
90 latex_enumerated_collapsed <- function(collapse_string, v) {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
91 cat("\\begin{enumerate}\n\\item ")
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
92 latex_collapsed_vector(collapse_string, v)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
93 cat("\n\\end{enumerate}\n")
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
94 }
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
95
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
96 latex_enumerated_list <- function(v) {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
97 latex_enumerated_collapsed("\n\\item ", v)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
98 }
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
99
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
100 latex_table_row <- function(v) {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
101 latex_collapsed_vector(" & ", v)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
102 cat(" \\\\\n")
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
103 }
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
104
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
105 # Use this like print.data.frame, from which it is adapted:
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
106 print_data_frame_latex <-
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
107 function(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
108 x,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
109 ...,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
110 # digits to pass to format.data.frame
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
111 digits = NULL,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
112 # TRUE -> right-justify columns; FALSE -> left-justify
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
113 right = TRUE,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
114 # maximumn number of rows to print
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
115 max = NULL,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
116 # string with justification of each column
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
117 justification = NULL,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
118 # TRUE to center on page
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
119 centered = FALSE,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
120 # optional capttion
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
121 caption = NULL,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
122 # h(inline); b(bottom); t (top) or p (separate page)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
123 anchor = "h"
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
124 ) {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
125 if (is.null(justification))
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
126 justification <-
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
127 Reduce(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
128 f = paste,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
129 x = rep_len(if (right) "r" else "l", length(colnames(x)))
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
130 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
131 n <- length(rownames(x))
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
132 if (length(x) == 0L) {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
133 cat(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
134 sprintf(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
135 # if n is one, use singular 'row', else use plural 'rows'
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
136 ngettext(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
137 n,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
138 "data frame with 0 columns and %d row",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
139 "data frame with 0 columns and %d rows"
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
140 ),
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
141 n
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
142 ),
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
143 "\n",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
144 sep = ""
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
145 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
146 }
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
147 else if (n == 0L) {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
148 cat("0 rows for:\n")
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
149 latex_itemized_list(names(x))
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
150 }
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
151 else {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
152 if (is.null(max))
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
153 max <- getOption("max.print", 99999L)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
154 if (!is.finite(max))
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
155 stop("invalid 'max' / getOption(\"max.print\"): ",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
156 max)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
157 omit <- (n0 <- max %/% length(x)) < n
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
158 m <- as.matrix(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
159 format.data.frame(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
160 if (omit) x[seq_len(n0), , drop = FALSE] else x,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
161 digits = digits,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
162 na.encode = FALSE
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
163 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
164 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
165 cat(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
166 # h(inline); b(bottom); t (top) or p (separate page)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
167 paste0("\\begin{table}[", anchor, "]\n")
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
168 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
169 if (!is.null(caption))
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
170 cat(paste0(" \\caption{", caption, "}"))
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
171 if (centered) cat("\\centering\n")
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
172 cat(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
173 paste(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
174 " \\begin{tabular}{",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
175 justification,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
176 "}\n",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
177 sep = ""
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
178 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
179 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
180 if (!is.null(caption))
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
181 cat(" \\hline\\hline\n")
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
182 latex_table_row(colnames(m))
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
183 cat("\\hline\n")
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
184 for (i in seq_len(length(m[, 1]))) {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
185 latex_table_row(m[i, ])
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
186 }
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
187 cat(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
188 paste(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
189 " \\end{tabular}",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
190 "\\end{table}",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
191 sep = "\n"
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
192 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
193 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
194 if (omit)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
195 cat(" [ reached 'max' / getOption(\"max.print\") -- omitted",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
196 n - n0, "rows ]\n")
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
197 }
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
198 invisible(x)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
199 }
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
200
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
201 ```
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
202
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
203 ## Purpose:
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
204
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
205 Perform imputation of missing values, quantile normalization, and ANOVA.
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
206
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
207 <!--
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
208 ## Variables to change for each input file
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
209 -->
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
210 ```{r include = FALSE}
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
211 # Input Filename
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
212 input_file <- params$inputFile
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
213
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
214 # First data column - ideally, this could be detected via regexSampleNames,
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
215 # but for now leave it as is.
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
216 first_data_column <- params$firstDataColumn
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
217 fdc_is_integer <- TRUE
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
218 first_data_column <- withCallingHandlers(
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
219 as.integer(first_data_column)
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
220 , warning = function(w) fdc_is_integer <<- FALSE
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
221 )
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
222 if (FALSE == fdc_is_integer) {
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
223 first_data_column <- params$firstDataColumn
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
224 }
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
225
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
226 # False discovery rate adjustment for ANOVA
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
227 # Since pY abundance is low, set to 0.10 and 0.20 in addition to 0.05
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
228 val_fdr <-
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
229 read.table(file = params$alphaFile, sep = "\t", header = F, quote = "")[, 1]
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
230
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
231 #Imputed Data filename
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
232 imputed_data_filename <- params$imputedDataFilename
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
233 imp_qn_lt_data_filenm <- params$imputedQNLTDataFile
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
234
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
235 #ANOVA data filename
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
236 ```
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
237
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
238 ```{r echo = FALSE}
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
239 # Imputation method, should be one of
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
240 # "random", "group-median", "median", or "mean"
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
241 imputation_method <- params$imputationMethod
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
242
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
243 # Selection of percentile of logvalue data to set the mean for random number
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
244 # generation when using random imputation
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
245 mean_percentile <- params$meanPercentile / 100.0
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
246
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
247 # deviation adjustment-factor for random values; real number.
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
248 sd_percentile <- params$sdPercentile
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
249
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
250 # Regular expression of Sample Names, e.g., "\\.(\\d+)[A-Z]$"
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
251 regex_sample_names <- params$regexSampleNames
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
252
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
253 # Regular expression to extract Sample Grouping from Sample Name;
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
254 # if error occurs, compare sample_factor_levels and sample_name_matches
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
255 # to see if groupings/pairs line up
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
256 # e.g., "(\\d+)"
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
257 regex_sample_grouping <- params$regexSampleGrouping
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
258
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
259 ```
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
260
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
261 ```{r echo = FALSE}
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
262 ### READ DATA
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
263
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
264 library(data.table)
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
265
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
266 # read.table reads a file in table format and creates a data frame from it.
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
267 # - note that `quote = ""` means that quotation marks are treated literally.
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
268 full_data <- read.table(
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
269 file = input_file,
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
270 sep = "\t",
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
271 header = T,
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
272 quote = "",
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
273 check.names = FALSE
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
274 )
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
275 ```
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
276
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
277 ### Parse column names, sample names, and factor levels from input file
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
278
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
279 ```{r echo = FALSE, results = 'asis'}
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
280 # Write column naames as an enumerated list.
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
281 column_name_df <- data.frame(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
282 column = seq_len(length(colnames(full_data))),
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
283 name = colnames(full_data)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
284 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
285 print_data_frame_latex(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
286 x = column_name_df,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
287 justification = "l l",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
288 centered = TRUE,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
289 caption = "Input data column name",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
290 anchor = "h"
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
291 )
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
292
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
293 data_column_indices <- grep(first_data_column, names(full_data), perl = TRUE)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
294 cat(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
295 sprintf(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
296 "\n\nData columns: [%d,%d]\n\n",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
297 min(data_column_indices),
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
298 max(data_column_indices)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
299 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
300 )
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
301
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
302 if (FALSE == fdc_is_integer) {
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
303 if (length(data_column_indices) > 0) {
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
304 first_data_column <- data_column_indices[1]
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
305 } else {
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
306 stop(paste("failed to convert firstDataColumn:", first_data_column))
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
307 }
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
308 }
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
309
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
310 ```
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
311
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
312 ```{r echo = FALSE, results = 'asis'}
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
313 #```{r echo = FALSE, results = 'asis'}
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
314 quant_data <- full_data[first_data_column:length(full_data)]
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
315 quant_data[quant_data == 0] <- NA
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
316 rownames(quant_data) <- full_data$Phosphopeptide
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
317 # Get factors -> group replicates (as indicated by terminal letter)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
318 # by the preceding digits;
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
319 # Assuming that regex_sample_names <- "\\.(\\d+)[A-Z]$"
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
320 # get factors ->
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
321 # group runs (samples) by ignoring terminal [A-Z] in sample names
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
322 # e.g.
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
323 # group .1A .1B .1C into group 1;
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
324 # group .2A .2B .2C, into group 2;
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
325 # etc.
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
326 m <- regexpr(regex_sample_names, colnames(quant_data), perl = TRUE)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
327 sample_name_matches <- regmatches(names(quant_data), m)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
328 colnames(quant_data) <- sample_name_matches
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
329
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
330 write_debug_file(quant_data)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
331
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
332 m2 <- regexpr(regex_sample_grouping, sample_name_matches, perl = TRUE)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
333 sample_factor_levels <- as.factor(regmatches(sample_name_matches, m2))
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
334 number_of_samples <- length(sample_name_matches)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
335 sample_factor_df <- data.frame(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
336 sample = sample_name_matches,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
337 level = sample_factor_levels
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
338 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
339 print_data_frame_latex(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
340 x = sample_factor_df,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
341 justification = "c c",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
342 centered = TRUE,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
343 caption = "Factor level",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
344 anchor = "h"
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
345 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
346 ```
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
347 ```{r echo = FALSE, results = 'asis'}
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
348 cat("\\newpage\n")
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
349 ```
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
350
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
351 ### Are the log-transformed sample distributions similar?
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
352
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
353 ```{r echo = FALSE, fig.dim = c(9, 5.5), results = 'asis'}
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
354
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
355 quant_data[quant_data == 0] <- NA #replace 0 with NA
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
356 quant_data_log <- log10(quant_data)
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
357
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
358 rownames(quant_data_log) <- rownames(quant_data)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
359 colnames(quant_data_log) <- sample_name_matches
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
360
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
361 write_debug_file(quant_data_log)
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
362
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
363 # data visualization
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
364 old_par <- par(
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
365 mai = par("mai") + c(0.5, 0, 0, 0)
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
366 )
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
367 # ref: https://r-charts.com/distribution/add-points-boxplot/
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
368 # Vertical plot
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
369 boxplot(
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
370 quant_data_log
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
371 , las = 1
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
372 , col = const_boxplot_fill
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
373 )
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
374 # Points
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
375 stripchart(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
376 quant_data_log, # Data
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
377 method = "jitter", # Random noise
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
378 jitter = const_stripchart_jitter,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
379 pch = 19, # Pch symbols
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
380 cex = const_stripchart_cex, # Size of symbols reduced
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
381 col = "goldenrod", # Color of the symbol
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
382 vertical = TRUE, # Vertical mode
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
383 add = TRUE # Add it over
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
384 )
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
385 par(old_par)
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
386
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
387
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
388
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
389 cat("\n\n\n")
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
390 cat("\n\n\n")
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
391
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
392 ```
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
393
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
394 ```{r echo = FALSE, fig.align = "left", fig.dim = c(9, 4), results = 'asis'}
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
395 library(ggplot2)
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
396 if (nrow(quant_data_log) > 1) {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
397 quant_data_log_stack <- stack(quant_data_log)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
398 ggplot(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
399 quant_data_log_stack,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
400 aes(x = values)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
401 ) +
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
402 geom_density(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
403 aes(group = ind, colour = ind),
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
404 na.rm = TRUE
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
405 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
406 } else {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
407 cat("No density plot because there are too few peptides.\n\n")
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
408 }
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
409 ```
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
410
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
411 ### Globally, are peptide intensities are approximately unimodal?
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
412
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
413 <!--
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
414 # ref for bquote below particularly and plotting math expressions generally:
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
415 # https://www.r-bloggers.com/2018/03/math-notation-for-r-plot-titles-expression-and-bquote/
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
416 -->
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
417 ```{r echo = FALSE, fig.align = "left", fig.dim = c(9, 5), results = 'asis'}
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
418
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
419 # identify the location of missing values
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
420 fin <- is.finite(as.numeric(as.matrix(quant_data_log)))
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
421
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
422 logvalues <- as.numeric(as.matrix(quant_data_log))[fin]
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
423 plot(
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
424 density(logvalues),
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
425 main = bquote(
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
426 "Smoothed estimated probability density vs." ~ log[10](intensity)),
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
427 xlab = bquote(log[10](intensity))
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
428 )
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
429 hist(
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
430 x = as.numeric(as.matrix(quant_data_log))
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
431 , breaks = 100
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
432 , main = bquote("Frequency vs." ~ log[10](intensity))
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
433 , xlab = bquote(log[10](intensity))
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
434 )
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
435 ```
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
436
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
437 ### Distribution of standard deviations of $log_{10}(\text{intensity})$, ignoring missing values:
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
438
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
439 ```{r echo = FALSE, fig.align = "left", fig.dim = c(9, 5), results = 'asis'}
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
440 # determine quantile
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
441 q1 <- quantile(logvalues, probs = mean_percentile)[1]
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
442
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
443 # determine standard deviation of quantile to impute
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
444 sd_finite <- function(x) {
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
445 ok <- is.finite(x)
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
446 sd(x[ok])
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
447 }
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
448 # 1 = row of matrix (ie, phosphopeptide)
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
449 sds <- apply(quant_data_log, 1, sd_finite)
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
450 if (sum(!is.na(sds)) > 2) {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
451 plot(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
452 density(sds, na.rm = T)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
453 , main = "Smoothed estimated probability density vs. std. deviation"
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
454 , sub = "(probability estimation made with Gaussian smoothing)"
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
455 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
456 } else {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
457 cat(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
458 "At least two non-missing values are required to plot",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
459 "probability density.\n\n"
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
460 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
461 }
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
462
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
463 ```
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
464
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
465 ```{r echo = FALSE}
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
466 # Determine number of cells to impute
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
467 temp <- quant_data[is.na(quant_data)]
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
468
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
469 # Determine number of values to impute
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
470 number_to_impute <- length(temp)
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
471
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
472 # Determine percent of missing values
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
473 pct_missing_values <-
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
474 round(length(temp) / (length(logvalues) + length(temp)) * 100)
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
475 ```
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
476
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
477 ```{r echo = FALSE}
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
478
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
479 # prep for trt-median based imputation
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
480
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
481 ```
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
482 ## Impute Missing Values
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
483
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
484 ```{r echo = FALSE}
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
485
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
486 imp_smry_potential_before <- length(logvalues)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
487 imp_smry_missing_before <- number_to_impute
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
488 imp_smry_pct_missing <- pct_missing_values
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
489
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
490 ```
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
491
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
492 ```{r echo = FALSE}
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
493 #Determine number of cells to impute
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
494
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
495 ```
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
496 ```{r echo = FALSE}
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
497
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
498 #Impute data
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
499 quant_data_imp <- quant_data
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
500
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
501 # Identify which values are missing and need to be imputed
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
502 ind <- which(is.na(quant_data_imp), arr.ind = TRUE)
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
503
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
504 ```
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
505 ```{r echo = FALSE, results = 'asis'}
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
506
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
507 # Apply imputation
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
508 switch(
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
509 imputation_method
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
510 , "group-median" = {
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
511 imputation_method_description <-
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
512 paste("Substitute missing value with",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
513 "median peptide intensity for sample group\n"
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
514 )
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
515 sample_level_integers <- as.integer(sample_factor_levels)
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
516 for (i in seq_len(length(levels(sample_factor_levels)))) {
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
517 level_cols <- i == sample_level_integers
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
518 ind <- which(is.na(quant_data_imp[, level_cols]), arr.ind = TRUE)
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
519 quant_data_imp[ind, level_cols] <-
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
520 apply(quant_data_imp[, level_cols], 1, median, na.rm = T)[ind[, 1]]
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
521 }
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
522 good_rows <- !is.na(rowMeans(quant_data_imp))
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
523 }
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
524 , "median" = {
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
525 imputation_method_description <-
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
526 paste("Substitute missing value with",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
527 "median peptide intensity across all sample classes\n"
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
528 )
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
529 quant_data_imp[ind] <- apply(quant_data_imp, 1, median, na.rm = T)[ind[, 1]]
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
530 good_rows <- !is.na(rowMeans(quant_data_imp))
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
531 }
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
532 , "mean" = {
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
533 imputation_method_description <-
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
534 paste("Substitute missing value with",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
535 "mean peptide intensity across all sample classes\n"
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
536 )
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
537 quant_data_imp[ind] <- apply(quant_data_imp, 1, mean, na.rm = T)[ind[, 1]]
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
538 good_rows <- !is.na(rowMeans(quant_data_imp))
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
539 }
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
540 , "random" = {
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
541 m1 <- median(sds, na.rm = T) * sd_percentile #sd to be used is the median sd
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
542 # If you want results to be reproducible, you will want to call
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
543 # base::set.seed before calling stats::rnorm
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
544 imputation_method_description <-
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
545 paste("Substitute each missing value with random intensity",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
546 sprintf(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
547 "random intensity $N \\sim (%0.2f, %0.2f)$\n",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
548 q1, m1
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
549 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
550 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
551 cat(sprintf("mean_percentile (from input parameter) is %2.0f\n\n",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
552 100 * mean_percentile))
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
553 cat(sprintf("sd_percentile (from input parameter) is %0.2f\n\n",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
554 sd_percentile))
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
555 #ACE cat(sprintf("sd for rnorm is %0.4f\n\n", m1))
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
556 quant_data_imp[ind] <-
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
557 10 ^ rnorm(number_to_impute, mean = q1, sd = m1)
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
558 good_rows <- !is.na(rowMeans(quant_data_imp))
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
559 }
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
560 )
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
561
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
562 if (length(good_rows) < 1) {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
563 print("ERROR: Cannot impute data; there are no good rows!")
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
564 return(-1)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
565 }
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
566 ```
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
567
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
568 ```{r echo = FALSE, results = 'asis'}
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
569 cat("\\quad\n\nImputation method:\n\n\n", imputation_method_description)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
570 ```
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
571
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
572 ```{r echo = FALSE}
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
573
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
574 imp_smry_potential_after <- sum(good_rows)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
575 imp_smry_rejected_after <- sum(!good_rows)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
576 imp_smry_missing_after <- sum(is.na(quant_data_imp[good_rows, ]))
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
577 ```
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
578 ```{r echo = FALSE, results = 'asis'}
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
579 # ref: http://www1.maths.leeds.ac.uk/latex/TableHelp1.pdf
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
580 tabular_lines <- paste(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
581 "\\begin{table}[hb]", # h(inline); b(bottom); t (top) or p (separate page)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
582 " \\caption{Imputation Results}",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
583 " \\centering", # \centering centers the table on the page
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
584 " \\begin{tabular}{l c c c}",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
585 " \\hline\\hline",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
586 " \\ & potential peptides & missing values & rejected",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
587 " peptides \\\\ [0.5ex]",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
588 " \\hline",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
589 " before imputation & %d & %d (%d\\%s) & \\\\",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
590 " after imputation & %d & %d & %d \\\\ [1ex]",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
591 " \\hline",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
592 " \\end{tabular}",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
593 #" \\label{table:nonlin}", # may be used to refer this table in the text
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
594 "\\end{table}",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
595 sep = "\n"
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
596 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
597 tabular_lines <-
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
598 sprintf(
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
599 tabular_lines,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
600 imp_smry_potential_before,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
601 imp_smry_missing_before,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
602 imp_smry_pct_missing,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
603 "%",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
604 imp_smry_potential_after,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
605 imp_smry_missing_after,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
606 imp_smry_rejected_after
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
607 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
608 cat(tabular_lines)
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
609 ```
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
610 ```{r echo = FALSE}
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
611
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
612
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
613 # Zap rows where imputation was ineffective
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
614 full_data <- full_data [good_rows, ]
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
615 quant_data <- quant_data [good_rows, ]
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
616
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
617 write_debug_file(quant_data_imp)
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
618
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
619 quant_data_imp <- quant_data_imp[good_rows, ]
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
620 quant_data_imp_good_rows <- quant_data_imp
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
621
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
622 write_debug_file(quant_data_imp_good_rows)
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
623 ```
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
624
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
625 ```{r echo = FALSE, results = 'asis'}
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
626
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
627 can_plot_before_after_imp <- TRUE
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
628 d_combined <-
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
629 as.numeric(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
630 as.matrix(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
631 log10(quant_data_imp)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
632 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
633 )
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
634 d_original <-
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
635 as.numeric(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
636 as.matrix(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
637 log10(quant_data_imp[!is.na(quant_data)])
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
638 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
639 )
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
640
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
641 if (sum(!is.na(d_combined)) > 2 && sum(!is.na(d_original)) > 2) {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
642 d_combined <- density(d_combined)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
643 d_original <- density(d_original)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
644 } else {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
645 can_plot_before_after_imp <- FALSE
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
646 }
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
647
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
648 if (sum(is.na(quant_data)) > 0) {
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
649 # There ARE missing values
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
650 d_imputed <-
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
651 as.numeric(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
652 as.matrix(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
653 log10(quant_data_imp[is.na(quant_data)])
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
654 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
655 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
656 if (sum(!is.na(d_combined)) > 2) {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
657 d_imputed <- (density(d_imputed))
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
658 } else {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
659 can_plot_before_after_imp <- FALSE
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
660 }
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
661 } else {
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
662 # There are NO missing values
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
663 d_imputed <- d_combined
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
664 }
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
665
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
666 ```
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
667
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
668 ```{r echo = FALSE, fig.dim = c(9, 5.5), results = 'asis'}
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
669 if (sum(is.na(quant_data)) > 0) {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
670 cat("\\leavevmode\\newpage\n")
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
671 # data visualization
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
672 old_par <- par(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
673 mai = par("mai") + c(0.5, 0, 0, 0)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
674 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
675 x <- quant_data
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
676 x <- blue_dots <- x / x
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
677 blue_dots <- log10(blue_dots * quant_data)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
678 x[is.na(x)] <- 0
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
679 x[x == 1] <- NA
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
680 x[x == 0] <- 1
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
681 quant_data_imp_log10 <-
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
682 log10(quant_data_imp)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
683
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
684 write_debug_file(quant_data_imp_log10)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
685
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
686 red_dots <- quant_data_imp_log10 * x
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
687 ylim <- c(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
688 min(red_dots, blue_dots, na.rm = TRUE),
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
689 max(red_dots, blue_dots, na.rm = TRUE)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
690 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
691 # ref: https://r-charts.com/distribution/add-points-boxplot/
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
692 # Vertical plot
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
693 colnames(blue_dots) <- sample_name_matches
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
694 boxplot(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
695 blue_dots
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
696 , las = 1 # "always horizontal"
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
697 , col = const_boxplot_fill
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
698 , ylim = ylim
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
699 , main = "Peptide intensities before and after imputation"
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
700 , sub = "Light blue = data before imputation; Red = imputed data"
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
701 , xlab = "Sample"
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
702 , ylab = "log10(peptide intensity)"
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
703 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
704 # Points
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
705 # NA values are not plotted
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
706 stripchart(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
707 blue_dots, # Data
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
708 method = "jitter", # Random noise
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
709 jitter = const_stripchart_jitter,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
710 pch = 19, # Pch symbols
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
711 cex = const_stripsmall_cex, # Size of symbols reduced
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
712 col = "lightblue", # Color of the symbol
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
713 vertical = TRUE, # Vertical mode
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
714 add = TRUE # Add it over
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
715 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
716 stripchart(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
717 red_dots, # Data
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
718 method = "jitter", # Random noise
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
719 jitter = const_stripchart_jitter,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
720 pch = 19, # Pch symbols
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
721 cex = const_stripsmall_cex, # Size of symbols reduced
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
722 col = "red", # Color of the symbol
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
723 vertical = TRUE, # Vertical mode
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
724 add = TRUE # Add it over
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
725 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
726 par(old_par)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
727
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
728 # density plot
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
729 cat("\\leavevmode\n\n\n\n\n\n\n")
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
730 if (can_plot_before_after_imp) {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
731 ylim <- c(0, max(d_combined$y, d_original$y, d_imputed$y))
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
732 plot(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
733 d_combined,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
734 ylim = ylim,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
735 sub =
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
736 paste(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
737 "Blue = data before imputation; Red = imputed data;",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
738 "Black = combined"
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
739 ),
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
740 main = "Density of peptide intensity before and after imputation",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
741 xlab = "log10(peptide intensity)",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
742 ylab = "Probability density"
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
743 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
744 lines(d_original, col = "blue")
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
745 lines(d_imputed, col = "red")
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
746 } else {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
747 cat(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
748 "There are too few points to plot the density of peptide intensity",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
749 "before and after imputation."
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
750 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
751 }
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
752 cat("\\leavevmode\\newpage\n")
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
753 }
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
754 ```
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
755
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
756 ## Perform Quantile Normalization
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
757
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
758 <!--
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
759 # Apply quantile normalization using preprocessCore::normalize.quantiles
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
760 # ---
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
761 # tool repository: http://bioconductor.org/packages/release/bioc/html/preprocessCore.html
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
762 # except this: https://support.bioconductor.org/p/122925/#9135989
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
763 # says to install it like this:
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
764 # ```
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
765 # BiocManager::install("preprocessCore", configure.args="--disable-threading", force = TRUE, lib=.libPaths()[1])
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
766 # ```
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
767 # conda installation (necessary because of a bug in recent openblas):
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
768 # conda install bioconductor-preprocesscore openblas=0.3.3
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
769 # ...
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
770 # ---
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
771 # normalize.quantiles {preprocessCore} -- Quantile Normalization
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
772 #
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
773 # Description:
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
774 # Using a normalization based upon quantiles, this function normalizes a matrix of probe level intensities.
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
775 #
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
776 # Usage:
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
777 # normalize.quantiles(x, copy = TRUE, keep.names = FALSE)
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
778 #
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
779 # Arguments:
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
780 #
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
781 # - x: A matrix of intensities where each column corresponds to a chip and each row is a probe.
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
782 #
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
783 # - copy: Make a copy of matrix before normalizing. Usually safer to work with a copy,
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
784 # but in certain situations not making a copy of the matrix, but instead normalizing
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
785 # it in place will be more memory friendly.
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
786 #
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
787 # - keep.names: Boolean option to preserve matrix row and column names in output.
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
788 #
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
789 # Details:
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
790 # This method is based upon the concept of a quantile-quantile plot extended to n dimensions.
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
791 # No special allowances are made for outliers. If you make use of quantile normalization
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
792 # please cite Bolstad et al, Bioinformatics (2003).
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
793 #
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
794 # This functions will handle missing data (ie NA values), based on
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
795 # the assumption that the data is missing at random.
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
796 #
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
797 # Note that the current implementation optimizes for better memory usage
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
798 # at the cost of some additional run-time.
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
799 #
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
800 # Value: A normalized matrix.
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
801 #
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
802 # Author: Ben Bolstad, bmbolstad.com
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
803 #
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
804 # References
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
805 #
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
806 # - Bolstad, B (2001) Probe Level Quantile Normalization of High Density Oligonucleotide
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
807 # Array Data. Unpublished manuscript http://bmbolstad.com/stuff/qnorm.pdf
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
808 #
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
809 # - Bolstad, B. M., Irizarry R. A., Astrand, M, and Speed, T. P. (2003) A Comparison of
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
810 # Normalization Methods for High Density Oligonucleotide Array Data Based on Bias
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
811 # and Variance. Bioinformatics 19(2), pp 185-193. DOI 10.1093/bioinformatics/19.2.185
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
812 # http://bmbolstad.com/misc/normalize/normalize.html
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
813 # ...
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
814 -->
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
815 ```{r echo = FALSE, results = 'asis'}
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
816 library(preprocessCore)
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
817
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
818 if (nrow(quant_data_imp) > 0) {
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
819 quant_data_imp_qn <- normalize.quantiles(as.matrix(quant_data_imp))
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
820 } else {
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
821 quant_data_imp_qn <- as.matrix(quant_data_imp)
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
822 }
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
823
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
824 quant_data_imp_qn <- as.data.frame(quant_data_imp_qn)
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
825 names(quant_data_imp_qn) <- names(quant_data_imp)
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
826
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
827 write_debug_file(quant_data_imp_qn)
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
828
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
829 quant_data_imp_qn_log <- log10(quant_data_imp_qn)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
830 rownames(quant_data_imp_qn_log) <- rownames(quant_data_imp)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
831
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
832 write_debug_file(quant_data_imp_qn_log)
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
833
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
834 quant_data_imp_qn_ls <- t(scale(t(log10(quant_data_imp_qn))))
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
835
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
836 any_nan <- function(x) {
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
837 !any(x == "NaN")
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
838 }
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
839 sel <- apply(quant_data_imp_qn_ls, 1, any_nan)
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
840 quant_data_imp_qn_ls2 <- quant_data_imp_qn_ls[which(sel), ]
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
841 quant_data_imp_qn_ls2 <- as.data.frame(quant_data_imp_qn_ls2)
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
842 rownames(quant_data_imp_qn_ls2) <- rownames(quant_data_imp)[sel]
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
843
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
844 quant_data_imp_qn_ls <- as.data.frame(quant_data_imp_qn_ls)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
845 rownames(quant_data_imp_qn_ls) <- rownames(quant_data_imp)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
846
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
847 write_debug_file(quant_data_imp_qn_ls)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
848 write_debug_file(quant_data_imp_qn_ls2)
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
849
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
850 #output quantile normalized data
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
851 data_table_imp_qn_lt <- cbind(full_data[1:9], quant_data_imp_qn_log)
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
852 write.table(
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
853 data_table_imp_qn_lt,
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
854 file = imp_qn_lt_data_filenm,
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
855 sep = "\t",
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
856 col.names = TRUE,
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
857 row.names = FALSE,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
858 quote = FALSE
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
859 )
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
860
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
861 ```
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
862
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
863 <!-- ACE insertion begin -->
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
864 ### Checking that normalized, imputed, log-transformed sample distributions are similar:
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
865
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
866 ```{r echo = FALSE, fig.dim = c(9, 5.5), results = 'asis'}
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
867
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
868 # Save unimputed quant_data_log for plotting below
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
869 unimputed_quant_data_log <- quant_data_log
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
870
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
871 # log10 transform (after preparing for zero values,
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
872 # which should never happen...)
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
873 quant_data_imp_qn[quant_data_imp_qn == 0] <- .000000001
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
874 quant_data_log <- log10(quant_data_imp_qn)
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
875
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
876 # Output with imputed, un-normalized data
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
877
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
878 data_table_imputed <- cbind(full_data[1:9], quant_data_imp)
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
879 write.table(
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
880 data_table_imputed
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
881 , file = imputed_data_filename
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
882 , sep = "\t"
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
883 , col.names = TRUE
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
884 , row.names = FALSE
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
885 , quote = FALSE
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
886 )
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
887
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
888 how_many_peptides <- nrow(quant_data_log)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
889
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
890 if ((how_many_peptides) > 0) {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
891 cat(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
892 sprintf(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
893 "Intensities for %d peptides:\n\n\n",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
894 how_many_peptides
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
895 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
896 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
897 cat("\n\n\n")
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
898
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
899
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
900 # data visualization
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
901 old_par <- par(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
902 mai = par("mai") + c(0.5, 0, 0, 0)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
903 , oma = par("oma") + c(0.5, 0, 0, 0)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
904 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
905 # ref: https://r-charts.com/distribution/add-points-boxplot/
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
906 # Vertical plot
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
907 colnames(quant_data_log) <- sample_name_matches
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
908 boxplot(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
909 quant_data_log
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
910 , las = 1
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
911 , col = const_boxplot_fill
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
912 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
913 # Points
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
914 stripchart(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
915 quant_data_log, # Data
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
916 method = "jitter", # Random noise
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
917 jitter = const_stripchart_jitter,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
918 pch = 19, # Pch symbols
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
919 cex = const_stripchart_cex, # Size of symbols reduced
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
920 col = "goldenrod", # Color of the symbol
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
921 vertical = TRUE, # Vertical mode
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
922 add = TRUE # Add it over
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
923 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
924 par(old_par)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
925 } else {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
926 cat("There are no peptides to plot\n")
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
927 }
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
928
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
929 cat("\n\n\n")
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
930
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
931 ```
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
932
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
933 ```{r echo = FALSE, fig.align = "left", fig.dim = c(9, 4), results = 'asis'}
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
934 if (nrow(quant_data_log) > 1) {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
935 quant_data_log_stack <- stack(quant_data_log)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
936 ggplot(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
937 quant_data_log_stack,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
938 aes(x = values)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
939 ) +
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
940 geom_density(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
941 aes(group = ind, colour = ind),
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
942 na.rm = TRUE
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
943 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
944 } else {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
945 cat("No density plot because there are fewer than two peptides to plot.\n\n")
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
946 }
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
947 ```
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
948 ```{r echo = FALSE, results = 'asis'}
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
949 cat("\\leavevmode\\newpage\n")
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
950 ```
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
951
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
952 ## Perform ANOVA filters
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
953
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
954 ```{r, echo = FALSE}
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
955 # Make new data frame containing only Phosphopeptides
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
956 # to connect preANOVA to ANOVA (connect_df)
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
957 connect_df <- data.frame(
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
958 data_table_imp_qn_lt$Phosphopeptide
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
959 , data_table_imp_qn_lt[, first_data_column]
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
960 )
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
961 colnames(connect_df) <- c("Phosphopeptide", "Intensity")
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
962 ```
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
963
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
964 ```{r echo = FALSE, fig.dim = c(9, 10), results = 'asis'}
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
965 count_of_factor_levels <- length(levels(sample_factor_levels))
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
966 if (count_of_factor_levels < 2) {
12
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
967 nuke_control_sequences <-
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
968 function(s) {
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
969 s <- gsub("[\\]", "xyzzy_plugh", s)
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
970 s <- gsub("[$]", "\\\\$", s)
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
971 s <- gsub("xyzzy_plugh", "$\\\\backslash$", s)
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
972 return(s)
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
973 }
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
974 cat(
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
975 "ERROR!!!! Cannot perform ANOVA analysis",
12
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
976 "(see next page)\\newpage\n"
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
977 )
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
978 cat(
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
979 "ERROR: ANOVA analysis",
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
980 "requires two or more factor levels!\n\n\n"
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
981 )
12
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
982
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
983 cat("\n\n\n\n\n")
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
984 cat("Unparsed sample names are:\n\n\n",
12
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
985 "\\begin{quote}\n",
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
986 paste(names(quant_data_imp_qn_log), collapse = "\n\n\n"),
12
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
987 "\n\\end{quote}\n\n")
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
988
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
989 regex_sample_names <- nuke_control_sequences(regex_sample_names)
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
990
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
991 cat("\\leavevmode\n\n\n")
12
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
992 cat("Parsing rule for SampleNames is",
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
993 "\n\n\n",
12
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
994 "\\text{'",
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
995 regex_sample_names,
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
996 "'}\n\n\n",
12
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
997 sep = ""
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
998 )
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
999
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1000 cat("\nParsed sample names are:\n",
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1001 "\\begin{quote}\n",
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1002 paste(sample_name_matches, collapse = "\n\n\n"),
12
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1003 "\n\\end{quote}\n\n")
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1004
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1005 regex_sample_grouping <- nuke_control_sequences(regex_sample_grouping)
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1006
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1007 cat("\\leavevmode\n\n\n")
12
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1008 cat("Parsing rule for SampleGrouping is",
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1009 "\n\n\n",
12
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1010 "\\text{'",
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1011 regex_sample_grouping,
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1012 "'}\n\n\n",
12
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1013 sep = ""
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1014 )
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1015
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1016 cat("\n\n\n")
12
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1017 cat("Sample group assignments are:\n",
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1018 "\\begin{quote}\n",
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1019 paste(regmatches(sample_name_matches, m2), collapse = "\n\n\n"),
12
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1020 "\n\\end{quote}\n\n")
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1021
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1022 } else {
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1023 p_value_data_anova_ps <-
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1024 apply(
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1025 quant_data_imp_qn_log,
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1026 1,
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1027 anova_func,
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1028 grouping_factor = sample_factor_levels
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1029 )
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1030
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1031 p_value_data_anova_ps_fdr <-
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1032 p.adjust(p_value_data_anova_ps, method = "fdr")
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1033 p_value_data <- data.frame(
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1034 phosphopeptide = full_data[, 1]
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1035 ,
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1036 raw_anova_p = p_value_data_anova_ps
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1037 ,
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1038 fdr_adjusted_anova_p = p_value_data_anova_ps_fdr
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1039 )
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1040
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1041 # output ANOVA file to constructed filename,
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1042 # e.g. "Outputfile_pST_ANOVA_STEP5.txt"
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1043 # becomes "Outpufile_pST_ANOVA_STEP5_FDR0.05.txt"
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1044
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1045 # Re-output datasets to include p-values
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1046 write.table(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1047 cbind(full_data[1:9], p_value_data[, 2:3], quant_data_imp),
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1048 file = imputed_data_filename,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1049 sep = "\t",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1050 col.names = TRUE,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1051 row.names = FALSE,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1052 quote = FALSE
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1053 )
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1054
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1055 write.table(
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1056 cbind(full_data[1:9], p_value_data[, 2:3], quant_data_imp_qn_log),
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1057 file = imp_qn_lt_data_filenm,
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1058 sep = "\t",
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1059 col.names = TRUE,
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1060 row.names = FALSE,
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1061 quote = FALSE
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1062 )
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1063
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1064
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1065 p_value_data <-
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1066 p_value_data[order(p_value_data$fdr_adjusted_anova_p), ]
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1067
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1068 first_page_suppress <- 1
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1069 number_of_peptides_found <- 0
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1070 cutoff <- val_fdr[1]
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1071 for (cutoff in val_fdr) {
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1072 if (number_of_peptides_found > 49) {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1073 cat("\\leavevmode\n\n\n")
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1074 break
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1075 }
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1076
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1077 #loop through FDR cutoffs
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1078
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1079 filtered_p <-
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1080 p_value_data[
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1081 which(p_value_data$fdr_adjusted_anova_p < cutoff),
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1082 , drop = FALSE
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1083 ]
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1084 filtered_data_filtered <-
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1085 quant_data_imp_qn_log[
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1086 rownames(filtered_p),
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1087 , drop = FALSE
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1088 ]
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1089 filtered_data_filtered <-
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1090 filtered_data_filtered[
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1091 order(filtered_p$fdr_adjusted_anova_p),
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1092 , drop = FALSE
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1093 ]
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1094
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1095 # <!-- ACE insertion start -->
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1096
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1097 if (nrow(filtered_p) && nrow(filtered_data_filtered) > 0) {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1098 if (first_page_suppress == 1) {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1099 first_page_suppress <- 0
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1100 }
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1101 else {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1102 cat("\\newpage\n")
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1103 }
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1104 cat(sprintf(
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1105 "Intensities for %d peptides whose adjusted p-value < %0.2f:\n",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1106 nrow(filtered_data_filtered),
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1107 cutoff
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1108 ))
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1109 cat("\n\n\n")
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1110 cat("\n\n\n")
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1111
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1112 old_oma <- par("oma")
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1113 old_par <- par(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1114 mai = (par("mai") + c(0.7, 0, 0, 0)) * c(1, 1, 0.3, 1),
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1115 oma = old_oma * c(1, 1, 0.3, 1),
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1116 cex.main = 0.9,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1117 cex.axis = 0.7,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1118 fin = c(9, 7.25)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1119 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1120 # ref: https://r-charts.com/distribution/add-points-boxplot/
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1121 # Vertical plot
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1122 colnames(filtered_data_filtered) <- sample_name_matches
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1123 boxplot(
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1124 filtered_data_filtered,
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1125 main = "Imputed, normalized intensities", # no line plot
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1126 las = 1,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1127 col = const_boxplot_fill,
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1128 ylab = expression(log[10](intensity))
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1129 )
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1130 # Points
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1131 stripchart(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1132 filtered_data_filtered, # Data
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1133 method = "jitter", # Random noise
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1134 jitter = const_stripchart_jitter,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1135 pch = 19, # Pch symbols
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1136 cex = const_stripchart_cex, # Size of symbols reduced
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1137 col = "goldenrod", # Color of the symbol
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1138 vertical = TRUE, # Vertical mode
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1139 add = TRUE # Add it over
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1140 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1141 par(old_par)
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1142 } else {
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1143 cat(sprintf(
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1144 "%s < %0.2f\n\n\n\n\n",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1145 "No peptides were found to have cutoff adjusted p-value <",
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1146 cutoff
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1147 ))
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1148 }
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1149
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1150 if (nrow(filtered_data_filtered) > 0) {
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1151 #Add Phosphopeptide column to anova_filtered table
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1152 anova_filtered_merge <- merge(
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1153 x = connect_df,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1154 y = filtered_data_filtered,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1155 by.x = "Intensity",
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1156 by.y = 1
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1157 )
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1158 anova_filtered_merge_order <- rownames(filtered_p)
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1159
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1160 anova_filtered_merge_format <- sapply(
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1161 X = filtered_p$fdr_adjusted_anova_p
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1162 ,
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1163 FUN = function(x) {
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1164 if (x > 0.0001)
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1165 paste0("(%0.", 1 + ceiling(-log10(x)), "f) %s")
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1166 else
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1167 paste0("(%0.4e) %s")
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1168 }
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1169 )
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1170
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1171 anova_filtered <- data.table(
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1172 anova_filtered_merge$Phosphopeptide
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1173 ,
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1174 anova_filtered_merge$Intensity
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1175 ,
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1176 anova_filtered_merge[, 2:number_of_samples + 1]
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1177 )
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1178 colnames(anova_filtered) <-
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1179 c("Phosphopeptide", colnames(filtered_data_filtered))
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1180
12
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1181 # Merge qualitative columns into the ANOVA data
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1182 output_table <- data.frame(anova_filtered$Phosphopeptide)
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1183 output_table <- merge(
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1184 x = output_table,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1185 y = data_table_imp_qn_lt,
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1186 by.x = "anova_filtered.Phosphopeptide",
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1187 by.y = "Phosphopeptide"
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1188 )
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1189
12
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1190 # Produce heatmap to visualize significance and the effect of imputation
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1191 m <-
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1192 as.matrix(unimputed_quant_data_log[anova_filtered_merge_order, ])
12
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1193 m_nan_rows <- rowSums(
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1194 matrix(
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1195 as.integer(is.na(m)),
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1196 nrow = nrow(m)
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1197 )
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1198 )
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1199 m <- m[!m_nan_rows, , drop = FALSE]
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1200 if (nrow(m) > 0) {
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1201 rownames_m <- rownames(m)
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1202 rownames(m) <- sapply(
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1203 X = seq_len(nrow(m))
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1204 ,
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1205 FUN = function(i) {
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1206 sprintf(
12
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1207 anova_filtered_merge_format[i],
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1208 filtered_p$fdr_adjusted_anova_p[i],
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1209 rownames_m[i]
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1210 )
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1211 }
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1212 )
12
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1213 how_many_peptides <- min(50, nrow(m))
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1214 number_of_peptides_found <- how_many_peptides
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1215 if (nrow(m) > 1) {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1216 m_margin <- m[how_many_peptides:1, ]
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1217 margins <-
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1218 c(max(nchar(colnames(m_margin))) * 10 / 16 # col
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1219 , max(nchar(rownames(m_margin))) * 5 / 16 # row
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1220 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1221 }
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1222
12
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1223 cat("\\newpage\n")
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1224 if (nrow(m) > 50) {
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1225 cat("Heatmap for the 50 most-significant peptides",
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1226 sprintf(
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1227 "whose adjusted p-value < %0.2f\n",
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1228 cutoff)
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1229 )
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1230 } else {
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1231 if (nrow(m) == 1) {
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1232 cat(
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1233 sprintf("Heatmap for %d usable peptides whose", nrow(m)),
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1234 sprintf("adjusted p-value < %0.2f\n", cutoff)
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1235 )
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1236 next
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1237 }
12
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1238 }
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1239 cat("\n\n\n")
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1240 cat("\n\n\n")
12
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1241 try(
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1242 if (nrow(m) > 1) {
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1243 old_oma <- par("oma")
12
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1244 par(cex.main = 0.6)
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1245 heatmap(
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1246 m[how_many_peptides:1, ],
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1247 Rowv = NA,
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1248 Colv = NA,
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1249 cexRow = 0.7,
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1250 cexCol = 0.8,
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1251 scale = "row",
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1252 margins = margins,
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1253 main =
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1254 "Unimputed, unnormalized intensities",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1255 xlab = "",
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1256 las = 1 #, fin = c(9, 5.5)
12
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1257 )
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1258 }
4deacfee76ef "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit e87d28ea433cc26db7fe44768685d08c06f7a0d0"
eschen42
parents: 7
diff changeset
1259 )
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1260 }
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1261 }
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1262 }
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1263 }
13
b41a077af3aa "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 040e4945da00a279cb60daae799fce9489f99c50"
eschen42
parents: 12
diff changeset
1264 cat("\\leavevmode\n\n\n")
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1265 ```
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1266
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1267 <!--
0
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1268 ## Peptide IDs, etc.
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1269
c1403d18c189 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit bb6c941be50db4c0719efdeaa904d7cb7aa1d182"
eschen42
parents:
diff changeset
1270 See output files.
7
d728198f1ba5 "planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit 9a0fa6d0f9aadc069a5551a54da6daf307885637"
eschen42
parents: 0
diff changeset
1271 -->