# Generate example data
example_data <- tibble::tibble(
sample_id = c("Pooled QC 1", "Pooled QC 2", "NIST 1", "NIST 2", "Sample 1"),
feature1 = c(10, 15, 20, NA, 5),
feature2 = c(20, NA, 25, 30, 10),
feature3 = c(NA, 25, 30, 35, 15)
)
# Calculate QC statistics and RSD
rsd_stats <- calculate_qc_rsd(example_data)
# Access results
pooled_qc_rsd <- rsd_stats$Pooled_QC_RSD
nist_rsd <- rsd_stats$NIST_RSD
Run the code above in your browser using DataLab