tests/testthat/test-6-ggdendrogram.R

test_that("ggdendrogram plots and accepts ... parameters", {
  require(ggplot2)
  hc <- hclust(dist(USArrests), "ave")
  p1 <- ggdendrogram(hc)
  expect_s3_class(p1, "ggplot")
  p2 <- ggdendrogram(hc, size = 2)
  expect_s3_class(p2, "ggplot")
})
andrie/ggdendro documentation built on April 1, 2024, 6:44 p.m.