# NOT RUN {
# Calculate stratigraphic fit measures treating ages as ranges:
fit.to.strat.1 <- StratPhyloCongruence(trees = Dipnoi$tree,
ages = Dipnoi$ages, rlen = 0, method = "basic", samp.perm=5,
rand.perm = 5, hard = TRUE, randomly.sample.ages = FALSE,
fix.topology = FALSE, fix.outgroup = TRUE,
outgroup.taxon = "Psarolepis_romeri")
# Show just the output for the input tree(s)
fit.to.strat.1$input.tree.results
# }
Run the code above in your browser using DataLab