set.seed(444)
tree <- rtree(10)
trait <- rTraitCont(tree)
#first, traitgram without conf intervals
plotTraitgram(trait,tree,conf.int = FALSE)
#now, with
plotTraitgram(trait,tree)
#not much confidence, eh?
# plotting simulated data
# with values for ancestral nodes as input
trait <- rTraitCont(tree, ancestor = TRUE)
plotTraitgram(tree = tree,trait = trait)
Run the code above in your browser using DataLab