# \donttest{
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"
)
# Create sample correlation heatmap
qc_sample_correlation(
data = data,
sample = sample,
grouping = peptide,
intensity_log2 = peptide_intensity_missing,
condition = condition
)
# }
Run the code above in your browser using DataLab