PhyloW function

Calculates ancestral states of some statistic

Calculates weighted average of covariances matrices along a phylogeny, returning a withing-group covariance matrice for each node.

PhyloW(tree, tip.data, tip.sample.size = NULL)

Arguments

• tree: phylogenetic tree
• tip.data: list of tip nodes covariance matrices
• tip.sample.size: vector of tip nodes sample sizes

Returns

list with calculated within-group matrices, using labels or numbers from tree

Examples

library(ape)
data(dentus)
data(dentus.tree)
tree <- dentus.tree
mat.list <- dlply(dentus, 'species', function(x) cov(x[,1:4]))
sample.sizes <- runif(length(tree$tip.label), 15, 20)
PhyloW(tree, mat.list, sample.sizes)