PlotTreeDriftTest {evolqg}

Plot results from TreeDriftTest

Description

Plot which labels reject drift hypothesis.

Usage

PlotTreeDriftTest(test.list, tree, ...)

Arguments

test.list

Output from TreeDriftTest

tree

phylogenetic tree

...

adition arguments to plot

Value

No return value, called for plot side effects

Author(s)

Diogo Melo

See Also

DriftTest TreeDriftTest

Examples

library(ape)
data(bird.orders)

tree <- bird.orders
mean.list <- llply(tree$tip.label, function(x) rnorm(5))
names(mean.list) <- tree$tip.label
cov.matrix.list <- RandomMatrix(5, length(tree$tip.label))
names(cov.matrix.list) <- tree$tip.label
sample.sizes <- runif(length(tree$tip.label), 15, 20)

test.list <- TreeDriftTest(tree, mean.list, cov.matrix.list, sample.sizes)
PlotTreeDriftTest(test.list, tree)