Nothing
#' @export
as.matrix.phylo <- function(x, ...) {
sp <- as.Splits(x)
as.logical(sp) * 1
}
#' @export
as.logical.phylo <- function(x, ...) {
as.logical(as.Splits(x))
}
#' @export
as.matrix.phyDat <- function(x, ambigNA = FALSE, inappNA = ambigNA, ...) {
PhyDatToMatrix(x, ambigNA, inappNA)
}
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.