tests/testthat/test-summary-utils.R

test_that("cluster_frequency", {
  expect_equal(2 * 2, 4)
})

test_that("cluster_frequency_plot", {
  expect_equal(2 * 2, 4)
})


test_that("atc_frequency", {
  expect_equal(2 * 2, 4)
})


test_that("atc_frequency_plot", {
  expect_equal(2 * 2, 4)
})


test_that("atc_landscape_plot", {
  expect_equal(2 * 2, 4)
})


test_that("medication_amount", {
  expect_equal(2 * 2, 4)
})


test_that("medication_amount_plot", {
  expect_equal(2 * 2, 4)
})




test_that("timing_average", {
  expect_equal(2 * 2, 4)
})

test_that("timing_average_plot", {
  expect_equal(2 * 2, 4)
})





test_that("timing_atc_interaction", {
  expect_equal(2 * 2, 4)
})

test_that("timing_atc_interaction_plot", {
  expect_equal(2 * 2, 4)
})

Try the tame package in your browser

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

tame documentation built on April 12, 2025, 1:40 a.m.