R/RcppExports.R

In plbaldoni/mikado: What the package does (short line)

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

generateHMM <- function(GAMMA, m) {
    .Call('_mikado_generateHMM', PACKAGE = 'mikado', GAMMA, m)
}

hmm2_Viterbi <- function(LOGF, P, GAMMA) {
    .Call('_mikado_hmm2_Viterbi', PACKAGE = 'mikado', LOGF, P, GAMMA)
}

hmmK_PP <- function(logf, pi, gamma) {
    .Call('_mikado_hmmK_PP', PACKAGE = 'mikado', logf, pi, gamma)
}

mhmmK_agg <- function(counts, dirP) {
    .Call('_mikado_mhmmK_agg', PACKAGE = 'mikado', counts, dirP)
}

mhmmK_agg_tmp <- function(counts, offsets, dirP) {
    .Call('_mikado_mhmmK_agg_tmp', PACKAGE = 'mikado', counts, offsets, dirP)
}

mhmmK_agg_v2 <- function(counts, dirP) {
    .Call('_mikado_mhmmK_agg_v2', PACKAGE = 'mikado', counts, dirP)
}

mhmmK_agg_v3 <- function(counts, dirP, dirW, size) {
    .Call('_mikado_mhmmK_agg_v3', PACKAGE = 'mikado', counts, dirP, dirW, size)
}

mhmmK_agg_v4 <- function(counts, dirP, size) {
    .Call('_mikado_mhmmK_agg_v4', PACKAGE = 'mikado', counts, dirP, size)
}

mhmmK_logFB <- function(counts, pi, gamma, lprob, name) {
    invisible(.Call('_mikado_mhmmK_logFB', PACKAGE = 'mikado', counts, pi, gamma, lprob, name))
}

mhmmK_logFB_tmp <- function(counts, offsets, pi, gamma, beta, name) {
    invisible(.Call('_mikado_mhmmK_logFB_tmp', PACKAGE = 'mikado', counts, offsets, pi, gamma, beta, name))
}

mhmmK_logFB_v2 <- function(counts, pi, gamma, lprob, nameF, nameB) {
    invisible(.Call('_mikado_mhmmK_logFB_v2', PACKAGE = 'mikado', counts, pi, gamma, lprob, nameF, nameB))
}

mydbinom <- function(x, size, prob) {
    .Call('_mikado_mydbinom', PACKAGE = 'mikado', x, size, prob)
}

mydmixbinom <- function(x, size, prob1, prob2, delta) {
    .Call('_mikado_mydmixbinom', PACKAGE = 'mikado', x, size, prob1, prob2, delta)
}

mhmmK_logFB_v3 <- function(counts, pi, gamma, psi, delta, nameFB, size) {
    .Call('_mikado_mhmmK_logFB_v3', PACKAGE = 'mikado', counts, pi, gamma, psi, delta, nameFB, size)
}

mydbinom_v4 <- function(x, size, prob) {
    .Call('_mikado_mydbinom_v4', PACKAGE = 'mikado', x, size, prob)
}

mhmmK_logFB_v4 <- function(counts, pi, gamma, psi, nameFB, size) {
    invisible(.Call('_mikado_mhmmK_logFB_v4', PACKAGE = 'mikado', counts, pi, gamma, psi, nameFB, size))
}

mhmmK_logPP <- function(counts, delta, gamma, lprob, name, dirFP, dirBP, M, N, cluster) {
    invisible(.Call('_mikado_mhmmK_logPP', PACKAGE = 'mikado', counts, delta, gamma, lprob, name, dirFP, dirBP, M, N, cluster))
}

mhmmK_logPP_tmp <- function(counts, offsets, delta, gamma, beta, name, dirFP, dirBP, M, N, cluster) {
    invisible(.Call('_mikado_mhmmK_logPP_tmp', PACKAGE = 'mikado', counts, offsets, delta, gamma, beta, name, dirFP, dirBP, M, N, cluster))
}

mhmmK_logPP_v2 <- function(counts, delta, gamma, lprob, name, dirFP, dirBP, M, N, cluster) {
    invisible(.Call('_mikado_mhmmK_logPP_v2', PACKAGE = 'mikado', counts, delta, gamma, lprob, name, dirFP, dirBP, M, N, cluster))
}

mydbinom_PP <- function(x, size, prob) {
    .Call('_mikado_mydbinom_PP', PACKAGE = 'mikado', x, size, prob)
}

mydmixbinom_PP <- function(x, size, prob1, prob2, delta) {
    .Call('_mikado_mydmixbinom_PP', PACKAGE = 'mikado', x, size, prob1, prob2, delta)
}

mhmmK_logPP_v3 <- function(counts, delta, gamma, psi, namePT, dirFB, size) {
    .Call('_mikado_mhmmK_logPP_v3', PACKAGE = 'mikado', counts, delta, gamma, psi, namePT, dirFB, size)
}

mydbinom_PP_v4 <- function(x, size, prob) {
    .Call('_mikado_mydbinom_PP_v4', PACKAGE = 'mikado', x, size, prob)
}

mhmmK_logPP_v4 <- function(counts, gamma, psi, namePT, dirFB, size) {
    .Call('_mikado_mhmmK_logPP_v4', PACKAGE = 'mikado', counts, gamma, psi, namePT, dirFB, size)
}

mhmmK_logW <- function(dirFP, delta, M, N) {
    .Call('_mikado_mhmmK_logW', PACKAGE = 'mikado', dirFP, delta, M, N)
}

mhmmK_logW_v2 <- function(dirFP, delta, M, N) {
    .Call('_mikado_mhmmK_logW_v2', PACKAGE = 'mikado', dirFP, delta, M, N)
}

mydbinom_W <- function(x, size, prob) {
    .Call('_mikado_mydbinom_W', PACKAGE = 'mikado', x, size, prob)
}

mydmixbinom_W <- function(x, size, prob1, prob2, delta) {
    .Call('_mikado_mydmixbinom_W', PACKAGE = 'mikado', x, size, prob1, prob2, delta)
}

mhmmK_logW_v3 <- function(counts, psi, delta, nameW, size) {
    .Call('_mikado_mhmmK_logW_v3', PACKAGE = 'mikado', counts, psi, delta, nameW, size)
}

mhmmK_maxDPT_v3 <- function(dirW, dirP, dirT, M, N) {
    .Call('_mikado_mhmmK_maxDPT_v3', PACKAGE = 'mikado', dirW, dirP, dirT, M, N)
}

mhmmK_maxDPT_v4 <- function(dirP, dirT, M, N) {
    .Call('_mikado_mhmmK_maxDPT_v4', PACKAGE = 'mikado', dirP, dirT, M, N)
}

mhmmK_maxP <- function(dirP, M, N) {
    .Call('_mikado_mhmmK_maxP', PACKAGE = 'mikado', dirP, M, N)
}

mhmmK_maxP_v2 <- function(dirP, M) {
    .Call('_mikado_mhmmK_maxP_v2', PACKAGE = 'mikado', dirP, M)
}

mhmmK_maxT <- function(dirT, M, N) {
    .Call('_mikado_mhmmK_maxT', PACKAGE = 'mikado', dirT, M, N)
}

mhmmK_maxT_v2 <- function(dirT, M) {
    .Call('_mikado_mhmmK_maxT_v2', PACKAGE = 'mikado', dirT, M)
}

viterbi <- function(dirF, P, GAMMA) {
    .Call('_mikado_viterbi', PACKAGE = 'mikado', dirF, P, GAMMA)
}