PhyloW {evolqg}

Calculates ancestral states of some statistic

Description

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

Usage

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

Value

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)