# 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)
}
sorted_bipartCPP <- function(orig, nTips) {
.Call(`_phangorn_sorted_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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.