tests/testthat/test-RCPP-count.R

In tpq/propr: An R package to calculate proportionality and other measures for compositional data

library(testthat)
library(propr)

test_that("count_greater_than and count_less_than work properly", {

    # define values
    values <- c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)

    expect_equal(propr:::count_greater_than(values, 5), 5)
    expect_equal(propr:::count_greater_than(values, 8), 2)
    expect_equal(propr:::count_less_than(values, 5),4)
    expect_equal(propr:::count_less_than(values, 8), 7)

    expect_equal(propr:::count_greater_equal_than(values, 5), 6)
    expect_equal(propr:::count_greater_equal_than(values, 8), 3)
    expect_equal(propr:::count_less_equal_than(values, 5), 5)
    expect_equal(propr:::count_less_equal_than(values, 8), 8)
})