tests/testthat/test-has_edgePar.R

# library(testthat)
# library(dendextend)


context("all.equal")


test_that("has_nodePar works", {
   hc <- hclust(dist(1:5))
   
   # if non-dendrogram object passed in
   expect_true(
      !has_nodePar(hc)   
   )
   
})

Try the dendextend package in your browser

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

dendextend documentation built on April 4, 2025, 4:40 a.m.