/usr/share/doc/r-cran-phangorn/tests/testthat/test_hadamard.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 | context("Hadamard conjugation")
v <- 1:8
data(yeast)
dm <- dist.hamming(yeast)
# RY-coding
yeast_ry <- acgt2ry(yeast)
# delete ambiguous states
# dat4 <- phyDat(as.character(yeast), type="USER", levels=c("a","c", "g", "t"), ambiguity=NULL)
# fit4 <- h4st(dat4)
test_that("Hadamard conjugation works as expected", {
# fast fft like multiplication
expect_is(H <- hadamard(3), "matrix")
expect_equal(as.vector(H %*% v), fhm(v))
expect_is(spl_ry <- h2st(yeast_ry), "splits")
expect_is(spl_dm <- distanceHadamard(dm), "splits")
})
|