library(devtools)
install_github("GoldfarbLab/TMTPurityCorrection")
# Extract uncorrected reporter intensities from MaxQuant results
data <- read_tsv("evidence,txt") %>% select(matches("Reporter intensity \\d+"))
# Read in lot-specific impurity file
impurities <- read_csv("VJ309267.csv")
# Correct impurities
correctedIntensities <- correctTMTproImpurities(data, impurities)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.