## ----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)

## -----------------------------------------------------------------------------
detectCharacterType(anolis$dat$SVL)

## -----------------------------------------------------------------------------
detectAllCharacters(anolis$dat)

## -----------------------------------------------------------------------------
cbind.data.frame(character=colnames(anolis$dat),type=detectAllCharacters(anolis$dat))

## -----------------------------------------------------------------------------
filterMatrix(anolis$dat, "discrete")

## -----------------------------------------------------------------------------
hasNames(anolis$dat, "col")

## -----------------------------------------------------------------------------
data=anolis$dat
colnames(data)<-NULL
head(data,2)

## -----------------------------------------------------------------------------
hasNames(data, "col")

## -----------------------------------------------------------------------------
data <- forceNames(data, "col")

## -----------------------------------------------------------------------------
head(data,2)

## -----------------------------------------------------------------------------
hasNames(data, "col")