distMRCA(samp, tree, pairwise)
The second measure calculated by this function is accessed by setting pairwise to TRUE. Here, per plot, the metric finds the distance of the MRCA of each pairwise taxon comparison from the root. The value returned per plot is then the mean of these distances. DANGER. Because this second option calculates all pairwise comparisons, the time it takes to run grows exponentially with the size of the commuity data matrix. For instance, on my personal computer, pairwise distMRCA was calculated in 0.2 seconds for a CDM with 16 plots containing between 10 and 25 species each. However, for a CDM with 100 plots containing between 25 and 55 species, it took 42s. In contrast to the first flavor of this metric, large values of this metric correspond to plots where the taxa present are more recently derived, while small values correspond to plots where the taxa are less recently derived (average common ancestor closer to the root). To make these measures more comparable, it may be better subtract the final values from the total tree height (with caveat about ultrametric tree above). It would also be easy to derive an abundance weighted version of this function. UPDATE. It appears that this second form is yet another (slower) way of deriving the calculation of MPD/PSV.
#simulate tree with birth-death process
tree <- geiger::sim.bdtree(b=0.1, d=0, stop="taxa", n=50)
sim.abundances <- round(rlnorm(5000, meanlog=2, sdlog=1)) + 1
cdm <- simulateComm(tree, richness.vector=10:25, abundances=sim.abundances)
results <- distMRCA(cdm, tree, pairwise=FALSE)
Run the code above in your browser using DataLab