# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
TwoStatePhyloLikelihood <- function(treeEdges, tipStates, branchLengths, lambda_01, lambda_10, armaRootDist) {
.Call('_indorigin_TwoStatePhyloLikelihood', PACKAGE = 'indorigin', treeEdges, tipStates, branchLengths, lambda_01, lambda_10, armaRootDist)
}
twoStateSufficientStatistics <- function(treeEdges, tipStates, branchLengths, lambda_01, lambda_10, rootDist) {
.Call('_indorigin_twoStateSufficientStatistics', PACKAGE = 'indorigin', treeEdges, tipStates, branchLengths, lambda_01, lambda_10, rootDist)
}
twoStateCompleteDataLogPosterior <- function(suffStat, lambda_01, lambda_10, prior_alpha_01, prior_beta_01, prior_alpha_10, prior_beta_10) {
.Call('_indorigin_twoStateCompleteDataLogPosterior', PACKAGE = 'indorigin', suffStat, lambda_01, lambda_10, prior_alpha_01, prior_beta_01, prior_alpha_10, prior_beta_10)
}
twoStatePhyloGibbsSampler <- function(treeEdges, cubeDims, branchLengths, rootDist, tipStates, initial_lambda_01, initial_lambda_10, prior_alpha_01, prior_beta_01, prior_alpha_10, prior_beta_10, mcmcSize, mcmcBurnin, mcmcSubsample) {
.Call('_indorigin_twoStatePhyloGibbsSampler', PACKAGE = 'indorigin', treeEdges, cubeDims, branchLengths, rootDist, tipStates, initial_lambda_01, initial_lambda_10, prior_alpha_01, prior_beta_01, prior_alpha_10, prior_beta_10, mcmcSize, mcmcBurnin, mcmcSubsample)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.