set.seed(123) # Makes example reproducible
# Create synthetic data
data <- create_synthetic_data(
n_proteins = 50,
frac_change = 0.05,
n_replicates = 3,
n_conditions = 2,
method = "effect_random",
additional_metadata = FALSE
)
# Filter coefficients of variation
data_filtered <- filter_cv(
data = data,
grouping = peptide,
condition = condition,
log2_intensity = peptide_intensity_missing,
cv_limit = 0.25,
min_conditions = 2
)
Run the code above in your browser using DataLab