# \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
df_norm <- 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
OlinkAnalyze:::olink_normalization_product_format(
df_norm = df_norm,
df1 = OlinkAnalyze:::data_ht_small,
df2 = OlinkAnalyze:::data_3k_small,
df1_project_nr = "Explore HT",
df2_project_nr = "Explore 3072",
reference_project = "Explore HT",
ref_product = "HT"
)
# }
Run the code above in your browser using DataLab