# \donttest{
# Bridge samples
bridge_samples <- intersect(
x = unique(OlinkAnalyze:::data_ht_small$SampleID),
y = unique(OlinkAnalyze:::data_3k_small$SampleID)
) |>
(\(x) x[!grepl("CONTROL", x)])()
# Run olink_normalization_product
npx_br_data <- olink_normalization(
df1 = OlinkAnalyze:::data_ht_small,
df2 = OlinkAnalyze:::data_3k_small,
overlapping_samples_df1 = bridge_samples,
df1_project_nr = "Explore HT",
df2_project_nr = "Explore 3072",
reference_project = "Explore HT")
# Format output
npx_br_data_format <- OlinkAnalyze:::olink_normalization_product_format(
bridged_df = npx_br_data,
df1 = OlinkAnalyze:::data_ht_small,
df2 = OlinkAnalyze:::data_3k_small,
df1_project_nr = "Explore HT",
df2_project_nr = "Explore 3072",
reference_project = "Explore HT")
# }
Run the code above in your browser using DataLab