R/RcppExports.R

In markophylo: Markov Chain Models for Phylogenetic Trees

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

loopC <- function(nodelist, al, x, x2, pm_lc, Lix, finind) {
    .Call('_markophylo_loopC', PACKAGE = 'markophylo', nodelist, al, x, x2, pm_lc, Lix, finind)
}

colMeansC <- function(x) {
    .Call('_markophylo_colMeansC', PACKAGE = 'markophylo', x)
}

cat_loopC <- function(nocat, nodelist, al, x, x2, pm_clc, Lix, finind) {
    .Call('_markophylo_cat_loopC', PACKAGE = 'markophylo', nocat, nodelist, al, x, x2, pm_clc, Lix, finind)
}

part_loopC <- function(nocat, nodelist, al, x, x2, pm_plc, Lix, finind) {
    .Call('_markophylo_part_loopC', PACKAGE = 'markophylo', nocat, nodelist, al, x, x2, pm_plc, Lix, finind)
}

expm <- function(M) {
    .Call('_markophylo_expm', PACKAGE = 'markophylo', M)
}