# Load libraries
library(dplyr)
set.seed(123) # Makes example reproducible
# Create example data
data <- create_synthetic_data(
n_proteins = 100,
frac_change = 0.05,
n_replicates = 3,
n_conditions = 2,
method = "effect_random"
) %>%
mutate(intensity_non_log2 = 2^peptide_intensity_missing)
# Calculate coefficients of variation
qc_cvs(
data = data,
grouping = peptide,
condition = condition,
intensity = intensity_non_log2,
plot = FALSE
)
# Plot coefficients of variation
# Different plot styles are available
qc_cvs(
data = data,
grouping = peptide,
condition = condition,
intensity = intensity_non_log2,
plot = TRUE,
plot_style = "violin"
)
Run the code above in your browser using DataLab