## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(echo = TRUE)

## -----------------------------------------------------------------------------
library(ape)
library(treedata.table)

# Load example data
data(anolis)
#Create treedata.table object with as.treedata.table
td <- as.treedata.table(tree = anolis$phy, data = anolis$dat)

## -----------------------------------------------------------------------------
anolis_newtip<-anolis$phy
anolis_newtip$tip.label[1]<-'NAA'
anolis_newtip

## -----------------------------------------------------------------------------
td <- as.treedata.table(tree=anolis_newtip, data=anolis$dat)

## -----------------------------------------------------------------------------
td

## -----------------------------------------------------------------------------
anolis2<-anolis$phy
anolis2$tip.label[1]<-'NAA'
anolis1<-anolis$phy
anolis1$tip.label[1]<-'NAA'
trees<-list(anolis1,anolis2)
class(trees) <- "multiPhylo"
trees

## -----------------------------------------------------------------------------
td <- as.treedata.table(tree=trees, data=anolis$dat)

## -----------------------------------------------------------------------------
td