context("choose_optimal_reference")
library(testthat)
data("peak_data")
out <- choose_optimal_reference(data = peak_data[1:3],rt_col_name = "time")
test_that("output is correct", {
expect_equal(out[["sample"]], "M2") # picked reference
expect_equal(round(out[["score"]],4), 0.0535) # Median deviation
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.