Nothing
library(phylobase)
library(ape)
tree.phylo <- read.tree(text="(((A,B)C,D),E);") #only one node is labelled
tree <- as(tree.phylo, "phylo4")
tree.phylo2 <- read.tree(text="(((A,B)C,D)F,E)G;") # all nodes labelled
tree2 <- as(tree.phylo2, "phylo4")
tip.data <- data.frame(size=c(1, 2, 3, 4))
rownames(tip.data) <- c("A", "B", "E", "D")
treed <- phylo4d(tree, tip.data)
dat2 <- data.frame(size=c(0,1,2), row.names=c("G", "F", "C"))
try(phylo4d(tree, node.data=dat2), silent = TRUE) # error, cannot match data because no node labels on tree
phylo4d(tree2, node.data=dat2) -> treed2 # OK tree labelled; has node data, no tip data
plot(treed2) # works with a warning about no tip data to plot
tipData(treed2, empty.columns=FALSE) #returns empty 4-row data.frame
phylo4d(tree2, tip.data=tip.data, node.data=dat2) -> treed3 #node+tip data
plot(treed3) # works
tipData(treed3) #works, but returns tips only
tdata(treed3, "all")
print(tree)
print(treed)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.