tests/testthat/test-distinct_edges.R

# cat("\n")
# library(testthat)


context("Distinct edges")


test_that("partition_leaves works",{
#    library(magrittr)

   x <- 1:3 %>% dist %>% hclust %>% as.dendrogram
#    partition_leaves(x)
#    plot(x)
   expect_identical(partition_leaves(x), list(c(3L, 1L, 2L), 3L, 1:2, 1L, 2L))
   
})



test_that("distinct_edges works",{

   x <- 1:5 %>% dist %>% hclust %>% as.dendrogram
   y <- set(x, "labels", 5:1)
   expect_identical(distinct_edges(x, y), c(5L,7L))
   expect_identical(distinct_edges(y, x), c(2L,5L))
})



test_that("dist.dendlist work",{
   x <- 1:5 %>% dist %>% hclust %>% as.dendrogram
   y <- set(x, "labels", 5:1)
   
#    dend_diff(x,y)
   tmp <- dist.dendlist(dendlist(x,x,y))
   
   expect_identical(class(tmp), "dist")

#    dput(as.matrix(tmp))
   expect_identical(as.matrix(tmp),
                    structure(c(0, 0, 4, 0, 0, 4, 4, 4, 0), .Dim = c(3L, 3L), .Dimnames = list(
                       c("1", "2", "3"), c("1", "2", "3")))
            )   

})

Try the dendextend package in your browser

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

dendextend documentation built on Oct. 19, 2018, 9:03 a.m.