tests/testthat/test-shape_sim_triangle.R

test_that("example 1 works", {

  abc <- shape_sim_triangle(periods_number=20, shape_number=5)

  expect_s3_class(abc, "data.frame")
  expect_equal(dim(abc), c(105,3))
  expect_type(abc$shape, "double")
})

Try the npdsim package in your browser

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

npdsim documentation built on April 12, 2025, 1:37 a.m.