tests/testthat/test-plot_inertia_from_tree.R

test_that("plot_inertia_from_tree() does not produce an error", {
  hc <- hclust(dist(USArrests))
  expect_no_error(
    get_inertia_from_tree(hc)
  )
  expect_no_error(
    plot_inertia_from_tree(hc)
  )
})

Try the guideR package in your browser

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

guideR documentation built on June 8, 2025, noon