R/RcppExports.R

Defines functions threshStateC cophenetic_cpp node_height_cpp p2dna allSiblingsCPP allChildrenCPP bipCPP short_bipCPP bipartCPP Transfer_Index getIndex out_cpp countCycle2_cpp countCycle_cpp allDescCPP fhm_new

Documented in threshStateC

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

fhm_new <- function(v, n) {
    .Call(`_phangorn_fhm_new`, v, n)
}

allDescCPP <- function(orig, nTips) {
    .Call(`_phangorn_allDescCPP`, orig, nTips)
}

countCycle_cpp <- function(M) {
    .Call(`_phangorn_countCycle_cpp`, M)
}

countCycle2_cpp <- function(M) {
    .Call(`_phangorn_countCycle2_cpp`, M)
}

out_cpp <- function(d, r, n) {
    .Call(`_phangorn_out_cpp`, d, r, n)
}

getIndex <- function(left, right, n) {
    .Call(`_phangorn_getIndex`, left, right, n)
}

Transfer_Index <- function(bp, orig, l) {
    .Call(`_phangorn_Transfer_Index`, bp, orig, l)
}

bipartCPP <- function(orig, nTips) {
    .Call(`_phangorn_bipartCPP`, orig, nTips)
}

short_bipCPP <- function(orig, nTips) {
    .Call(`_phangorn_short_bipCPP`, orig, nTips)
}

bipCPP <- function(orig, nTips) {
    .Call(`_phangorn_bipCPP`, orig, nTips)
}

allChildrenCPP <- function(orig) {
    .Call(`_phangorn_allChildrenCPP`, orig)
}

allSiblingsCPP <- function(edge) {
    .Call(`_phangorn_allSiblingsCPP`, edge)
}

p2dna <- function(xx, eps = 0.999) {
    .Call(`_phangorn_p2dna`, xx, eps)
}

node_height_cpp <- function(edge1, edge2, edge_length) {
    .Call(`_phangorn_node_height_cpp`, edge1, edge2, edge_length)
}

cophenetic_cpp <- function(edge, edge_length, nTips, nNode) {
    .Call(`_phangorn_cophenetic_cpp`, edge, edge_length, nTips, nNode)
}

#' @rdname phangorn-internal
#' @export
threshStateC <- function(x, thresholds) {
    .Call(`_phangorn_threshStateC`, x, thresholds)
}

Try the phangorn package in your browser

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

phangorn documentation built on Jan. 23, 2023, 5:37 p.m.