data-raw/psm_silac_p4.R

In CambridgeCentreForProteomics/camprotR: Processing, analysing and visualising CCP proteomics data

library(dplyr)

# Read in SILAC passage 4 peptide data
# 50:50 mix of light:heavy cells (R0K0:R10K8)
silac_p4 <- read.delim(
  here::here("data-raw/Molm_13_P4_PSMs.txt")
)

# Set seed for reproducible sampling
set.seed(2021)

# Get all PSMs for a random sample of 100 Master proteins
psm_silac_p4 <- silac_p4 %>%
  filter(Master.Protein.Accessions %in% sample(unique(Master.Protein.Accessions), 100))

# Output .rda file
usethis::use_data(psm_silac_p4, overwrite = TRUE)