Nothing
##' @importFrom tidytree sibling
##' @method sibling phylo
##' @export
sibling.phylo <- function(.data, .node, ...) {
root <- rootnode(.data)
if (.node == root) {
return(NA)
}
pp <- parent(.data, .node)
cc <- child(.data, pp)
sib <- cc[cc != .node]
return(sib)
}
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.