R/RcppExports.R

In dMrs: Competing Risk in Dependent Net Survival Analysis

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

Rcpp_norm <- function(a) {
    .Call('_dMrs_Rcpp_norm', PACKAGE = 'dMrs', a)
}

Rcpp_max_abs_diff <- function(aa, bb) {
    .Call('_dMrs_Rcpp_max_abs_diff', PACKAGE = 'dMrs', aa, bb)
}

Rcpp_logSumExp <- function(log_x) {
    .Call('_dMrs_Rcpp_logSumExp', PACKAGE = 'dMrs', log_x)
}

prt_vec <- function(aa) {
    invisible(.Call('_dMrs_prt_vec', PACKAGE = 'dMrs', aa))
}

log_CDF_weibull <- function(XX, LAM, ALP) {
    .Call('_dMrs_log_CDF_weibull', PACKAGE = 'dMrs', XX, LAM, ALP)
}

calc_expweibull_logCDF_logPDF <- function(XX, LAM, ALP, KAP) {
    .Call('_dMrs_calc_expweibull_logCDF_logPDF', PACKAGE = 'dMrs', XX, LAM, ALP, KAP)
}

log_SURV_expweibull <- function(XX, LAM, ALP, KAP) {
    .Call('_dMrs_log_SURV_expweibull', PACKAGE = 'dMrs', XX, LAM, ALP, KAP)
}

calc_copula <- function(log_CDFs, copula, THETA) {
    .Call('_dMrs_calc_copula', PACKAGE = 'dMrs', log_CDFs, copula, THETA)
}

calc_copula_offset <- function(log_DENs, log_CDFs, copula, THETA, cop_CDF) {
    .Call('_dMrs_calc_copula_offset', PACKAGE = 'dMrs', log_DENs, log_CDFs, copula, THETA, cop_CDF)
}

calc_copula_CDF_OFF <- function(log_DENs, log_CDFs, copula, THETA) {
    .Call('_dMrs_calc_copula_CDF_OFF', PACKAGE = 'dMrs', log_DENs, log_CDFs, copula, THETA)
}

dMrs_cLL <- function(XX, DELTA, log_D2, log_F2, PARS, copula, verb = FALSE) {
    .Call('_dMrs_dMrs_cLL', PACKAGE = 'dMrs', XX, DELTA, log_D2, log_F2, PARS, copula, verb)
}

dMrs_cGRAD <- function(XX, DELTA, log_D2, log_F2, PARS, copula, upPARS) {
    .Call('_dMrs_dMrs_cGRAD', PACKAGE = 'dMrs', XX, DELTA, log_D2, log_F2, PARS, copula, upPARS)
}

dMrs_cHESS <- function(XX, DELTA, log_D2, log_F2, PARS, copula, upPARS) {
    .Call('_dMrs_dMrs_cHESS', PACKAGE = 'dMrs', XX, DELTA, log_D2, log_F2, PARS, copula, upPARS)
}

dMrs_NR <- function(XX, DELTA, log_D2, log_F2, PARS, copula, upPARS, max_iter = 2e2L, eps = 5e-2, mult = 5L, verb = TRUE) {
    invisible(.Call('_dMrs_dMrs_NR', PACKAGE = 'dMrs', XX, DELTA, log_D2, log_F2, PARS, copula, upPARS, max_iter, eps, mult, verb))
}

dMrs_GRID <- function(XX, DELTA, log_D2, log_F2, log_THETA, log_ALPHA, log_LAMBDA, unc_KAPPA, copula, verb = FALSE, ncores = 1L) {
    .Call('_dMrs_dMrs_GRID', PACKAGE = 'dMrs', XX, DELTA, log_D2, log_F2, log_THETA, log_ALPHA, log_LAMBDA, unc_KAPPA, copula, verb, ncores)
}

dMrs_MATCH <- function(wDAT, rDAT, ncores = 1L, verb = TRUE) {
    .Call('_dMrs_dMrs_MATCH', PACKAGE = 'dMrs', wDAT, rDAT, ncores, verb)
}