# \donttest{
# Create example data
proteome <- data.frame(id = 1:4518)
data <- data.frame(
sample = c(rep("A", 101), rep("B", 1000), rep("C", 1000)),
protein_id = c(proteome$id[1:100], proteome$id[1:1000], proteome$id[1000:2000])
)
# Calculate proteome coverage
qc_proteome_coverage(
data = data,
sample = sample,
protein_id = protein_id,
organism_id = 83333,
plot = FALSE
)
# Plot proteome coverage
qc_proteome_coverage(
data = data,
sample = sample,
protein_id = protein_id,
organism_id = 83333,
plot = TRUE
)
# }
Run the code above in your browser using DataLab