tests/testthat/test-utils.R

test_that("tr_estimate() works", {
  X <- matrix(rnorm(100), 20, 5)
  expect_equal(tr_estimate_R_impl(X), tr_estimate(X))
})

Try the semidist package in your browser

Any scripts or data that you put into this service are public.

semidist documentation built on Nov. 21, 2023, 9:06 a.m.