u_in_tree<-function(tree, species){
treesp<-tree$tip.label
inphy<-species %in% treesp
mm<-matrix(nrow=length(species), ncol=2)
colnames(mm)<-c('Species', 'In Phylogeny?')
mm[,1]<-species
mm[,2]<-inphy
print(mm)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.