tests/testthat/test_get_distr_default.r

test_that("defaults correct", {
  expect_equal(get_distr_default("rnorm"), "N")
  expect_equal(get_distr_default("rbernoulli"), "Bernoulli")
  expect_equal(get_distr_default("rcategorical"), "Multinomial")
  expect_equal(get_distr_default("rconstant"), "")
  expect_equal(get_distr_default("rbeta"), "rbeta")
})

Try the simDAG package in your browser

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

simDAG documentation built on April 3, 2025, 10:35 p.m.