R/RcppExports.R

In lnmixsurv: Bayesian Mixture Log-Normal Survival Model

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

#' @importFrom RcppParallel RcppParallelLibs
NULL

lognormal_mixture_gibbs <- function(Niter, em_iter, G, t, delta, X, starting_seed, show_output, n_chains, use_W, better_initial_values, N_em, Niter_em, fast_groups) {
    .Call(`_lnmixsurv_lognormal_mixture_gibbs`, Niter, em_iter, G, t, delta, X, starting_seed, show_output, n_chains, use_W, better_initial_values, N_em, Niter_em, fast_groups)
}

lognormal_mixture_em_implementation <- function(Niter, G, t, delta, X, starting_seed, better_initial_values, N_em, Niter_em, show_output) {
    .Call(`_lnmixsurv_lognormal_mixture_em_implementation`, Niter, G, t, delta, X, starting_seed, better_initial_values, N_em, Niter_em, show_output)
}

predict_survival_em_cpp <- function(t, m, sigma, eta, r) {
    .Call(`_lnmixsurv_predict_survival_em_cpp`, t, m, sigma, eta, r)
}

predict_hazard_em_cpp <- function(t, m, sigma, eta, r) {
    .Call(`_lnmixsurv_predict_hazard_em_cpp`, t, m, sigma, eta, r)
}

predict_survival_gibbs_cpp <- function(eval_time, predictors, beta_start, sigma_start, eta_start, interval, level) {
    .Call(`_lnmixsurv_predict_survival_gibbs_cpp`, eval_time, predictors, beta_start, sigma_start, eta_start, interval, level)
}

predict_hazard_gibbs_cpp <- function(eval_time, predictors, beta_start, sigma_start, eta_start, interval, level) {
    .Call(`_lnmixsurv_predict_hazard_gibbs_cpp`, eval_time, predictors, beta_start, sigma_start, eta_start, interval, level)
}

simulate_y <- function(X, beta, phi, delta, groups, starting_seed) {
    .Call(`_lnmixsurv_simulate_y`, X, beta, phi, delta, groups, starting_seed)
}