Purvis et al. (2002) demonstrated that I is not independent of the node size S, resulting in a bias to the expected median of 0.5. They proposed a modification (I') that corrects this to give a statistic with an expected median of 0.5 regardless of node size. The defaults in this function perform testing of imbalance using I', but it is also possible to use the original measure proposed by Fusco and Cronk (1995).
fusco.test(phy, data , names.col, rich, tipsAsSpecies=FALSE, randomise.Iprime=TRUE, reps=1000, conf.int=0.95)
## S3 method for class 'fusco':
print(x, ...)
## S3 method for class 'fusco':
summary(object, ...)
## S3 method for class 'fusco':
plot(x, correction=TRUE, nBins=10, right=FALSE, I.prime=TRUE, plot=TRUE, ...)data identifying tip labels. Not required if phy is a 'comparative.data' object.fusco.test produces an object of class 'fusco' containing:randomise.Iprime is TRUE, or the user calls fusco.randomize on a 'fusco' object, then the following are also present.The randomization option generates confidence intervals around the mean I'.
Purvis A., Katzourakis A. & Agapow, P-M (2002) Evaluating Phylogenetic Tree Shape: Two Modifications to Fusco & Cronk's Method. J. theor. Biol. 214, 93-103.
data(syrphidae)
syrphidae <- comparative.data(phy=syrphidaeTree, dat=syrphidaeRich, names.col=genus)
summary(fusco.test(syrphidae, rich=nSpp))
summary(fusco.test(syrphidae, tipsAsSpecies=TRUE))
plot(fusco.test(syrphidae, rich=nSpp))Run the code above in your browser using DataLab