tests/testthat/test-choose_optimal_reference.R

In GCalignR: Simple Peak Alignment for Gas-Chromatography Data

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
})