Testing synthetic data form gDRtestData package
Usage
test_synthetic_data(
original,
data,
dataName,
override_untrt_controls = NULL,
assays = c("Normalized", "Averaged", "Metrics"),
tolerance = 0.001
)Examples
set.seed(2)
cell_lines <- gDRtestData::create_synthetic_cell_lines()
drugs <- gDRtestData::create_synthetic_drugs()
data <- "finalMAE_small"
original <- gDRutils::get_synthetic_data(data)
test_synthetic_data(original, original, "test")
#> Test passed with 1 success 🥇.
#> Test passed with 1 success 🎊.
#> Test passed with 1 success 🎉.