tests/testthat/test-bray_curtis.R

In benthos: Marine Benthic Ecosystem Analysis

context("Bray Curtis")



test_that("'bray_curtis dissimilarity' has been correctly implemented", {
    
    # test example https://www.statisticshowto.datasciencecentral.com/bray-curtis-dissimilarity/
    # (but different implementation) 
    expect_equal(bray_curtis(c(6, 7, 4), c(10, 0, 6)), 0.39, tolerance = 0.01)
    
    # test extremes
    expect_identical(bray_curtis(c(0, 0, 0), c(5, 5, 5)), 1)
    expect_identical(bray_curtis(c(5, 5, 5), c(5, 5, 5)), 0)
})