Nothing
## ----set-up-------------------------------------------------------------------
tree1 <- ape::read.tree(text = '(A, ((B, (C, (D, E))), ((F, G), (H, I))));')
tree2 <- ape::read.tree(text = '(A, ((B, (C, (D, (H, I)))), ((F, G), E)));')
## ----load-package, message=FALSE----------------------------------------------
library('TreeDist')
## ----measure-distance---------------------------------------------------------
distance <- TreeDistance(tree1, tree2)
## ----multi-trees--------------------------------------------------------------
oneTree <- ape::rtree(11)
twoTrees <- structure(list(one = ape::rtree(11), two = ape::rtree(11)),
class = 'multiPhylo')
threeTrees <- list(a = ape::rtree(11), b = ape::rtree(11), c = ape::rtree(11))
TreeDistance(oneTree, twoTrees)
TreeDistance(twoTrees, threeTrees)
## ----visualise-matching, fig.align='center', fig.width=8, out.width='90%'-----
VisualizeMatching(ClusteringInfoDistance, tree1, tree2)
## ----write-vis-matching, fig.align='center', fig.width=8, out.width='90%'-----
ClusteringInfoDistance(tree1, tree2, reportMatching = TRUE)
## -----------------------------------------------------------------------------
splits <- as.character(TreeTools::as.Splits(tree2))
splits
## ----named-splits, fig.align='center', fig.width=7, fig.height = 5, out.width='80%'----
oldPar <- par(mar = rep(0, 4))
plot(tree2)
ape::nodelabels()
ape::nodelabels(splits, as.integer(names(splits)),
adj = c(1.1, -0.2), cex = 0.8, frame = 'none')
## ---- echo=FALSE--------------------------------------------------------------
par(oldPar)
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.