R/RcppExports.R

In groupedSurv: Efficient Estimation of Grouped Survival Models Using the Exact Likelihood Function

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

alphaEst1 <- function(dtimeFactor, dtime, delta) {
    .Call('_groupedSurv_alphaEst1', PACKAGE = 'groupedSurv', dtimeFactor, dtime, delta)
}

betaEst <- function(fam_group, alpha, dtime, delta, g, var, lower, upper, f_ind, m) {
    .Call('_groupedSurv_betaEst', PACKAGE = 'groupedSurv', fam_group, alpha, dtime, delta, g, var, lower, upper, f_ind, m)
}

effScore <- function(beta, Params, G, Xmatrix, Kivec, Deltavec, ntps, nCores, reScore) {
    .Call('_groupedSurv_effScore', PACKAGE = 'groupedSurv', beta, Params, G, Xmatrix, Kivec, Deltavec, ntps, nCores, reScore)
}

effScoreFam <- function(beta, sigma2, fam_group, i_at, i_dt, i_Delta, i_G, f_ind, m) {
    .Call('_groupedSurv_effScoreFam', PACKAGE = 'groupedSurv', beta, sigma2, fam_group, i_at, i_dt, i_Delta, i_G, f_ind, m)
}

grad_NF <- function(Params, Xmatrix, Kivec, Deltavec, ntps) {
    .Call('_groupedSurv_grad_NF', PACKAGE = 'groupedSurv', Params, Xmatrix, Kivec, Deltavec, ntps)
}

ll <- function(fam_group, alpha, dtime, delta, g, beta, var, f_ind, m) {
    .Call('_groupedSurv_ll', PACKAGE = 'groupedSurv', fam_group, alpha, dtime, delta, g, beta, var, f_ind, m)
}

logLike_NF <- function(Params, Xmatrix, Kivec, Deltavec, ntps) {
    .Call('_groupedSurv_logLike_NF', PACKAGE = 'groupedSurv', Params, Xmatrix, Kivec, Deltavec, ntps)
}

varEst <- function(fam_group, alpha, dtime, delta, g, beta, lower, upper, f_ind, m) {
    .Call('_groupedSurv_varEst', PACKAGE = 'groupedSurv', fam_group, alpha, dtime, delta, g, beta, lower, upper, f_ind, m)
}