tests/testthat/test-generate_data_roc.R

test_that("draw_data_roc: general tests", {
  data <- draw_data_roc()
  expect_equal(length(data), 2)

  data <- draw_data_roc(dist = "exponential")
  expect_equal(length(data), 2)
})

Try the cases package in your browser

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

cases documentation built on April 3, 2025, 9:24 p.m.