tests/testthat/test_identical.R

library(testthat)

test_that("Test mean", {
  expect_equal(Rpackage::mean_list(list(c(1,2,1,4), c(2,3,5,10))), list(2, 5))
  expect_equal(Rpackage::mean_list(list(c(2,2,2,2))), list(2))
})
piotr-ole/Rexamplepackage2 documentation built on Nov. 14, 2019, 8:07 p.m.