# \donttest{
# check input datasets
data_explore_check <- OlinkAnalyze:::olink_norm_input_check(
df1 = OlinkAnalyze:::data_3k_small,
df2 = OlinkAnalyze:::data_ht_small,
overlapping_samples_df1 = intersect(
x = unique(OlinkAnalyze:::data_3k_small$SampleID),
y = unique(OlinkAnalyze:::data_ht_small$SampleID)
) |>
(\(x) x[!grepl("CONTROL", x)])() |>
head(20L),
overlapping_samples_df2 = NULL,
df1_project_nr = "P1",
df2_project_nr = "P2",
reference_project = "P2",
reference_medians = NULL
)
# create lst_df
lst_df <- list(
data_explore_check$ref_df,
data_explore_check$not_ref_df
)
names(lst_df) <- c(data_explore_check$ref_name,
data_explore_check$not_ref_name)
# create ref_cols
ref_cols <- data_explore_check$ref_cols
not_ref_cols <- data_explore_check$not_ref_cols
# run olink_normalization_bridgeable
is_bridgeable_result <- OlinkAnalyze:::olink_normalization_bridgeable(
lst_df = lst_df,
ref_cols = ref_cols,
not_ref_cols = not_ref_cols,
seed = 1
)
# }
Run the code above in your browser using DataLab