tests/testthat/test_rowMedians.R

m <- matrix(1:8, nrow = 2)

test_that("rowMedians", {
    expect_equal(rowMedians(m), c(4, 5))
})

test_that("colMedians", {
    expect_equal(colMedians(m), seq(1, 7, by = 2) + 0.5)
})
ampel-leipzig/rusranger documentation built on April 28, 2022, 3:22 a.m.