tests/testthat/test-labelsfrombrusheddendrogram.R

In chasemc/ghosts: Protein and small molecule analysis of bacteria by MALDI-TOF MS

context("test-labelsfrombrusheddendrogram")


a <- as.dendrogram(hclust(dist(mtcars)))


test_that("multiplication works", {
  expect_identical(ghosts::labelsFromBrushedDendrogram(dendrogram = a,
                                                         brushYmin = 1,
                                                         brushYmax = 5),
                   c("Chrysler Imperial",   "Cadillac Fleetwood",  "Lincoln Continental"))
})