R/RcppExports.R

Defines functions g_smry_em g_smry_meanvar g_smry_var g_smry_mean est_cov lh_multinom lh_binom PELT_custom WBS_custom BS_custom SN_custom PELT WBS BS SN get_cost_em get_cost_meanvar get_cost_var get_cost_mean

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

get_cost_mean <- function(dat_smry, s, e) {
    .Call(`_cpss_get_cost_mean`, dat_smry, s, e)
}

get_cost_var <- function(dat_smry, s, e) {
    .Call(`_cpss_get_cost_var`, dat_smry, s, e)
}

get_cost_meanvar <- function(dat_smry, s, e) {
    .Call(`_cpss_get_cost_meanvar`, dat_smry, s, e)
}

get_cost_em <- function(dat_smry, s, e) {
    .Call(`_cpss_get_cost_em`, dat_smry, s, e)
}

SN <- function(dat_smry, n, L, d, model) {
    .Call(`_cpss_SN`, dat_smry, n, L, d, model)
}

BS <- function(dat_smry, n, L, d, model) {
    .Call(`_cpss_BS`, dat_smry, n, L, d, model)
}

WBS <- function(dat_smry, n, L, d, lr_M, model) {
    .Call(`_cpss_WBS`, dat_smry, n, L, d, lr_M, model)
}

PELT <- function(dat_smry, n, pen_val, d, K, model) {
    .Call(`_cpss_PELT`, dat_smry, n, pen_val, d, K, model)
}

SN_custom <- function(dat_smry, n, L, d, get_cost) {
    .Call(`_cpss_SN_custom`, dat_smry, n, L, d, get_cost)
}

BS_custom <- function(dat_smry, n, L, d, get_cost) {
    .Call(`_cpss_BS_custom`, dat_smry, n, L, d, get_cost)
}

WBS_custom <- function(dat_smry, n, L, d, lr_M, get_cost) {
    .Call(`_cpss_WBS_custom`, dat_smry, n, L, d, lr_M, get_cost)
}

PELT_custom <- function(dat_smry, n, pen_val, d, K, get_cost) {
    .Call(`_cpss_PELT_custom`, dat_smry, n, pen_val, d, K, get_cost)
}

lh_binom <- function(N, x) {
    .Call(`_cpss_lh_binom`, N, x)
}

lh_multinom <- function(N, x) {
    .Call(`_cpss_lh_multinom`, N, x)
}

est_cov <- function(dataset) {
    .Call(`_cpss_est_cov`, dataset)
}

g_smry_mean <- function(dataset, Sigma) {
    .Call(`_cpss_g_smry_mean`, dataset, Sigma)
}

g_smry_var <- function(dataset, mu) {
    .Call(`_cpss_g_smry_var`, dataset, mu)
}

g_smry_meanvar <- function(dataset, param_opt) {
    .Call(`_cpss_g_smry_meanvar`, dataset, param_opt)
}

g_smry_em <- function(dataset, param_opt) {
    .Call(`_cpss_g_smry_em`, dataset, param_opt)
}
ghwang-nk/cpss documentation built on Aug. 25, 2022, 8:12 a.m.