tests/testthat/test-random.R

context("random syt")

test_that("random syt has good shape", {
  syt <- rsyt(c(5,3,1))
  expect_identical(lengths(syt), c(5L,3L,1L))
})

Try the syt package in your browser

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

syt documentation built on Jan. 16, 2021, 5:19 p.m.