tests/testthat/test_fp_02_averaging.R

In Guillawme/rfret: Analyze FRET Binding Data

context("FP - average replicates")

# Load pre-computed expected result
my_expected_result <-
    readr::read_csv(file = "./fp/fp_binding_data_averaged.csv")

# Run example dataset through the formatting and averaging functions
my_result <- fp_binding_data %>%
    format_data(data_type = "fp") %>%
    fp_average_replicates()

# Test that result matches expected precomputed result
test_that("fp_average_replicates works", {
    expect_equal(object = my_result, expected = my_expected_result)
})