Mercurial > repos > eschen42 > mqppep_anova
comparison MaxQuantProcessingScript.R @ 32:f61fa0dd6b06 draft
planemo upload for repository https://github.com/galaxyproteomics/tools-galaxyp/tree/master/tools/mqppep commit f77498b7b7ec81809c005d1caad6f2bcd2523821
| author | eschen42 |
|---|---|
| date | Tue, 14 Feb 2023 15:20:42 +0000 |
| parents | 5b8e15b2a67c |
| children | 23a08db943f6 |
comparison
equal
deleted
inserted
replaced
| 31:c33c30398908 | 32:f61fa0dd6b06 |
|---|---|
| 71 movetolast <- function(data, move) { | 71 movetolast <- function(data, move) { |
| 72 data[c(setdiff(names(data), move), move)] | 72 data[c(setdiff(names(data), move), move)] |
| 73 } | 73 } |
| 74 | 74 |
| 75 # Generate phosphopeptide and build list when applied | 75 # Generate phosphopeptide and build list when applied |
| 76 # nolint start: squash un-actionable cyclomatic_complexity warning | |
| 76 phosphopeptide_func <- function(df) { | 77 phosphopeptide_func <- function(df) { |
| 78 # nolint end | |
| 77 # generate peptide sequence and list of phosphopositions | 79 # generate peptide sequence and list of phosphopositions |
| 78 phosphoprobsequence <- | 80 phosphoprobsequence <- |
| 79 strsplit(as.character(df["Phospho (STY) Score diffs"]), "")[[1]] | 81 strsplit(as.character(df["Phospho (STY) Score diffs"]), "")[[1]] |
| 80 output <- vector() | 82 output <- vector() |
| 81 phosphopeptide <- "" | 83 phosphopeptide <- "" |