Mercurial > repos > galaxyp > mqppep_anova

comparison MaxQuantProcessingScript.R @ 3:6f51e262d84d 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 3dcf0d08f006b888061ff83eadc65e550d751869
author galaxyp
date Tue, 31 Jan 2023 22:26:38 +0000
parents 2276e88d5a1f
children 7d1f8a256cf6
comparison
equal deleted inserted replaced
2:1023fa7bd75f 3:6f51e262d84d
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 <- ""