# \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 the internal function olink_norm_input_check
check_norm <- OlinkAnalyze:::olink_norm_input_check(
df1 = OlinkAnalyze:::data_ht_small,
df2 = OlinkAnalyze:::data_3k_small,
overlapping_samples_df1 = bridge_samples,
overlapping_samples_df2 = NULL,
df1_project_nr = "P1",
df2_project_nr = "P2",
reference_project = "P1",
reference_medians = NULL
)
# Named list of input datasets
lst_df <- list(
check_norm$ref_df,
check_norm$not_ref_df
)
names(lst_df) <- c(check_norm$ref_name, check_norm$not_ref_name)
ref_cols <- check_norm$ref_cols
not_ref_cols <- check_norm$not_ref_cols
qs_result <- OlinkAnalyze:::olink_normalization_qs(
lst_df = lst_df,
ref_cols = ref_cols,
not_ref_cols = not_ref_cols,
bridge_samples = bridge_samples,
ref_product = "HT"
)
# }
Run the code above in your browser using DataLab