# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
hmm_logF <- function(logf1, logf2, logf3, pi, gamma) {
.Call('_mixNBHMM_hmm_logF', PACKAGE = 'mixNBHMM', logf1, logf2, logf3, pi, gamma)
}
hmm_logB <- function(logf1, logf2, logf3, pi, gamma) {
.Call('_mixNBHMM_hmm_logB', PACKAGE = 'mixNBHMM', logf1, logf2, logf3, pi, gamma)
}
hmm_P1 <- function(logF, logB) {
.Call('_mixNBHMM_hmm_P1', PACKAGE = 'mixNBHMM', logF, logB)
}
hmm_P2 <- function(logF, logB, logf1, logf2, logf3, gamma) {
.Call('_mixNBHMM_hmm_P2', PACKAGE = 'mixNBHMM', logF, logB, logf1, logf2, logf3, gamma)
}
Viterbi <- function(LOGF, P, GAMMA) {
.Call('_mixNBHMM_Viterbi', PACKAGE = 'mixNBHMM', LOGF, P, GAMMA)
}
generateHMM <- function(GAMMA, m) {
.Call('_mixNBHMM_generateHMM', PACKAGE = 'mixNBHMM', GAMMA, m)
}
hmm2_logF <- function(logf1, logf2, pi, gamma) {
.Call('_mixNBHMM_hmm2_logF', PACKAGE = 'mixNBHMM', logf1, logf2, pi, gamma)
}
hmm2_logB <- function(logf1, logf2, pi, gamma) {
.Call('_mixNBHMM_hmm2_logB', PACKAGE = 'mixNBHMM', logf1, logf2, pi, gamma)
}
hmm2_P1 <- function(logF, logB) {
.Call('_mixNBHMM_hmm2_P1', PACKAGE = 'mixNBHMM', logF, logB)
}
hmm2_P2 <- function(logF, logB, logf1, logf2, gamma) {
.Call('_mixNBHMM_hmm2_P2', PACKAGE = 'mixNBHMM', logF, logB, logf1, logf2, gamma)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.