tests/testthat/test-swiss_roll.R

test_that("gen_swissroll() works", {
  set.seed(20240412)
  testthat::expect_snapshot(gen_swissroll(n = 500, p = 4))
  testthat::expect_error(gen_swissroll(n = 500, p = 1))
  testthat::expect_error(gen_swissroll(n = -500, p = 4))

})

Try the cardinalR package in your browser

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

cardinalR documentation built on Aug. 21, 2025, 5:27 p.m.