tests/testthat/test-counts.R

context("counts")

test_that("counts", {
    x <- data.frame(x = 1:10, y = 1:10)
    expect_equal(sum(WeightedCounts(x$x, x$y)), sum(1:10))
})
Displayr/flipStatistics documentation built on May 12, 2024, 9:19 p.m.