Variance Components with Orthonormal Contrasts
This function calls Phylip's contrast program and returns the phylogenetic and phenotypic variance-covariance components for one or several traits. There can be several observations per species.
varCompPhylip(x, phy, exec = NULL)
x |
a numeric vector, a matrix (or data frame), or a list. |
phy |
an object of class |
exec |
a character string giving the name of the executable contrast program (see details). |
The data x can be in several forms: (i) a numeric vector if
there is single trait and one observation per species; (ii) a
matrix or data frame if there are several traits (as columns) and a
single observation of each trait for each species; (iii) a list of
vectors if there is a single trait and several observations per
species; (iv) a list of matrices or data frames: same than (ii) but
with several traits and the rows are individuals.
If x has names, its values are matched to the tip labels of
phy, otherwise its values are taken to be in the same order
than the tip labels of phy.
Phylip (version 3.68 or higher) must be accessible on your computer. If
you have a Unix-like operating system, the executable name is assumed
to be "phylip contrast" (as in Debian); otherwise it is set
to "contrast". If this doesn't suit your system, use the
option exec accordingly. If the executable is not in the path, you
may need to specify it, e.g., exec = "C:/Program Files/Phylip/contrast".
a list with elements varA and varE with the phylogenetic
(additive) and phenotypic (environmental) variance-covariance
matrices. If a single trait is analyzed, these contains its variances.
Emmanuel Paradis
Felsenstein, J. (2004) Phylip (Phylogeny Inference Package) version 3.68. Department of Genetics, University of Washington, Seattle, USA. http://evolution.genetics.washington.edu/phylip/phylip.html.
Felsenstein, J. (2008) Comparative methods with sampling error and within-species variation: Contrasts revisited and revised. American Naturalist, 171, 713–725.
## Not run: tr <- rcoal(30) ### Five traits, one observation per species: x <- replicate(5, rTraitCont(tr, sigma = 1)) varCompPhylip(x, tr) # varE is small x <- replicate(5, rnorm(30)) varCompPhylip(x, tr) # varE is large ### Five traits, ten observations per species: x <- replicate(30, replicate(5, rnorm(10)), simplify = FALSE) varCompPhylip(x, tr) ## End(Not run)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.