tests/testthat/test-nodeValue.R

In markrobinsonuzh/treeAGG: Tree Aggregation

context("nodeCount")


test_that("nodeValue works correctly", {

  data("tinyTree")
  count <- matrix(1:100, nrow =10)
  rownames(count) <- tinyTree$tip.label
  colnames(count) <- paste(c("C1_", "C2_"),
  c(1:5, 1:5), sep = "")

  # expect_error(nodeValue(data = count, tree = NULL,
  #                         fun = sum))
  # expect_equal(nodeValue(data = count, tree = tinyTree,
  #                         fun = sum)[18, 1], 9)
  # expect_equal(nodeValue(data = count, tree = tinyTree,
  #                         fun = sum)[nrow(count)+1, 1], sum(count[,1]))
  # expect_equal(nodeValue(data = count, tree = tinyTree,
  #                         fun = mean)[nrow(count)+1, 1], mean(count[,1]))

})