tests/testthat/test_sample_mode.R

test_that("Test sample mode",{
	expected_mode <- sample_mode(c(1,1,6,8))
  actual_mode <- 1
	expect_equal(expected_mode, actual_mode)
})
b-rodrigues/brotools documentation built on April 21, 2020, 2:27 p.m.