tests/testthat/test-rect.dendrogram.R

In dendextend: Extending 'dendrogram' Functionality in R

# library(testthat)
#
# context("rect.dendrogram")
#
# test_that("rect.dendrogram work",{
#
# #    dend15 <- c(1:5) %>% dist %>% hclust(method = "average") %>% as.dendrogram
# #    # dend15 <- c(1:25) %>% dist %>% hclust(method = "average") %>% as.dendrogram
# #    dend15 %>% set("branches_k_color") %>% plot
# #    dend15 %>% rect.dendrogram(k=3,
# #                               border = 8, lty = 5, lwd = 2)
#
#
#    # expect_equal(attr(fixed_dend, "members"), 5)
# })
#
#
#


# #### this throws an error
#    dend15 <- c(1:5) %>% dist %>% hclust(method = "average") %>% as.dendrogram
#    # dend15 <- c(1:25) %>% dist %>% hclust(method = "average") %>% as.dendrogram
#    dend15 %>% set("branches_k_color") %>% plot
#    dend15 %>% rect.dendrogram(k=4,
#                               border = 8, lty = 5, lwd = 2)