set.seed(123) # Makes example reproducible
# Create synthetic data
data <- create_synthetic_data(
n_proteins = 50,
frac_change = 0.05,
n_replicates = 4,
n_conditions = 3,
method = "effect_random",
additional_metadata = FALSE
)
# Plot ranked intensities for all samples combined
qc_ranked_intensities(
data = data,
sample = sample,
grouping = peptide,
intensity_log2 = peptide_intensity,
plot = TRUE,
)
# Plot ranked intensities for each sample separately
qc_ranked_intensities(
data = data,
sample = sample,
grouping = peptide,
intensity_log2 = peptide_intensity,
plot = TRUE,
facet = TRUE
)
Run the code above in your browser using DataLab