R/RcppExports.R

Defines functions rooted_shape_to_edge edge_to_rooted_shape tips_in_splits splits_to_edge thin_splits or_splits and_splits xor_splits not_splits mask_splits duplicated_splits cpp_edge_to_splits path_lengths minimum_spanning_tree kept_vertices mixed_base_to_parent edge_to_mixed_base edge_to_num random_parent num_to_parent descendant_tips descendant_edges consensus_tree as_newick ape_neworder_pruningwise ape_neworder_phylo ClusterTable_decode ClusterTable_matrix ClusterTable_new

# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393

ClusterTable_new <- function(phylo) {
    .Call(`_TreeTools_ClusterTable_new`, phylo)
}

ClusterTable_matrix <- function(xp) {
    .Call(`_TreeTools_ClusterTable_matrix`, xp)
}

ClusterTable_decode <- function(xp) {
    .Call(`_TreeTools_ClusterTable_decode`, xp)
}

ape_neworder_phylo <- function(n_tips, parent, child, n_edges, order) {
    .Call(`_TreeTools_ape_neworder_phylo`, n_tips, parent, child, n_edges, order)
}

ape_neworder_pruningwise <- function(n_tips, n_node, parent, child, n_edges) {
    .Call(`_TreeTools_ape_neworder_pruningwise`, n_tips, n_node, parent, child, n_edges)
}

as_newick <- function(edge) {
    .Call(`_TreeTools_as_newick`, edge)
}

consensus_tree <- function(trees, p) {
    .Call(`_TreeTools_consensus_tree`, trees, p)
}

descendant_edges <- function(parent, child, postorder) {
    .Call(`_TreeTools_descendant_edges`, parent, child, postorder)
}

descendant_tips <- function(parent, child, postorder) {
    .Call(`_TreeTools_descendant_tips`, parent, child, postorder)
}

num_to_parent <- function(n, nTip) {
    .Call(`_TreeTools_num_to_parent`, n, nTip)
}

random_parent <- function(nTip, seed) {
    .Call(`_TreeTools_random_parent`, nTip, seed)
}

edge_to_num <- function(parent, child, nTip) {
    .Call(`_TreeTools_edge_to_num`, parent, child, nTip)
}

edge_to_mixed_base <- function(parent, child, nTip) {
    .Call(`_TreeTools_edge_to_mixed_base`, parent, child, nTip)
}

mixed_base_to_parent <- function(n, nTip) {
    .Call(`_TreeTools_mixed_base_to_parent`, n, nTip)
}

kept_vertices <- function(edge, kept) {
    .Call(`_TreeTools_kept_vertices`, edge, kept)
}

minimum_spanning_tree <- function(order) {
    .Call(`_TreeTools_minimum_spanning_tree`, order)
}

path_lengths <- function(edge, weight) {
    .Call(`_TreeTools_path_lengths`, edge, weight)
}

cpp_edge_to_splits <- function(edge, order, nTip) {
    .Call(`_TreeTools_cpp_edge_to_splits`, edge, order, nTip)
}

duplicated_splits <- function(splits, fromLast) {
    .Call(`_TreeTools_duplicated_splits`, splits, fromLast)
}

mask_splits <- function(x) {
    .Call(`_TreeTools_mask_splits`, x)
}

not_splits <- function(x) {
    .Call(`_TreeTools_not_splits`, x)
}

xor_splits <- function(x, y) {
    .Call(`_TreeTools_xor_splits`, x, y)
}

and_splits <- function(x, y) {
    .Call(`_TreeTools_and_splits`, x, y)
}

or_splits <- function(x, y) {
    .Call(`_TreeTools_or_splits`, x, y)
}

thin_splits <- function(splits, drop) {
    .Call(`_TreeTools_thin_splits`, splits, drop)
}

splits_to_edge <- function(splits, nTip) {
    .Call(`_TreeTools_splits_to_edge`, splits, nTip)
}

tips_in_splits <- function(splits) {
    .Call(`_TreeTools_tips_in_splits`, splits)
}

edge_to_rooted_shape <- function(parent, child, nTip) {
    .Call(`_TreeTools_edge_to_rooted_shape`, parent, child, nTip)
}

rooted_shape_to_edge <- function(shape, nTip) {
    .Call(`_TreeTools_rooted_shape_to_edge`, shape, nTip)
}

Try the TreeTools package in your browser

Any scripts or data that you put into this service are public.

TreeTools documentation built on June 22, 2024, 9:27 a.m.