/usr/share/doc/r-cran-phangorn/tests/testthat/test_dist_tree.R is in r-cran-phangorn 2.4.0-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | context("dist_tree")
data(Laurasiatherian)
dm <- dist.ml(Laurasiatherian)
test_that("check nnls functions", {
tree_nj <- NJ(dm)
tree_unj <- UNJ(dm)
tree_nnls_unj <- nnls.phylo(tree_unj, dm)
tree_nnls_nj <- nnls.phylo(tree_nj, dm)
tree_upgma <- upgma(dm)
tree_wpgma <- wpgma(dm)
tree_nnls_upgma <- nnls.phylo(tree_upgma, dm, rooted=TRUE)
tree_nnls_wpgma <- nnls.phylo(tree_wpgma, dm, rooted=TRUE)
expect_equal(tree_upgma, tree_nnls_upgma)
expect_false(all.equal(tree_wpgma, tree_nnls_wpgma))
expect_equal(tree_unj, tree_nnls_unj)
expect_false(all.equal(tree_nj, tree_nnls_nj))
})
|