R/RcppExports.R

In penPHcure: Variable Selection in PH Cure Model with Time-Varying Covariates

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

cox_base_hazard_cpp <- function(beta, nused, K, start, tstop, event, sort1, sort2, covar, offset, method) {
    .Call('_penPHcure_cox_base_hazard_cpp', PACKAGE = 'penPHcure', beta, nused, K, start, tstop, event, sort1, sort2, covar, offset, method)
}

fit_pen_cox_cpp <- function(beta_SV, nobs, tstart, tstop, sort1, sort2, status, fail_times, nfails, offset, Z, method, warnings, maxiter, tol, N, tun_par, pen_weights, pen_type, epsilon) {
    .Call('_penPHcure_fit_pen_cox_cpp', PACKAGE = 'penPHcure', beta_SV, nobs, tstart, tstop, sort1, sort2, status, fail_times, nfails, offset, Z, method, warnings, maxiter, tol, N, tun_par, pen_weights, pen_type, epsilon)
}

fit_cox_cpp <- function(beta_SV, nobs, tstart, tstop, sort1, sort2, status, offset, Z, method, warnings, maxiter, tol) {
    .Call('_penPHcure_fit_cox_cpp', PACKAGE = 'penPHcure', beta_SV, nobs, tstart, tstop, sort1, sort2, status, offset, Z, method, warnings, maxiter, tol)
}

fit_pen_cure_cpp <- function(b_SV, beta_SV, base_hazard_SV, tstart, tstop, sort1, sort2, status, fail_times, nfails, nobs_i, status_FIX, X_FIX, Z, method, warnings, maxiterNR, maxiterEM, constraint, tol, pen_type, tun_parCURE, tun_parSURV, pen_weightsCURE, pen_weightsSURV, epsilon, thres_zero) {
    .Call('_penPHcure_fit_pen_cure_cpp', PACKAGE = 'penPHcure', b_SV, beta_SV, base_hazard_SV, tstart, tstop, sort1, sort2, status, fail_times, nfails, nobs_i, status_FIX, X_FIX, Z, method, warnings, maxiterNR, maxiterEM, constraint, tol, pen_type, tun_parCURE, tun_parSURV, pen_weightsCURE, pen_weightsSURV, epsilon, thres_zero)
}

datagen_cure_cpp <- function(beta0, b0, lambdaC, S, N, Z, X, C, gamma) {
    .Call('_penPHcure_datagen_cure_cpp', PACKAGE = 'penPHcure', beta0, b0, lambdaC, S, N, Z, X, C, gamma)
}

compute_survival_cpp <- function(beta, base_hazard, tstart, tstop, N, nobs, fail_times, Z, constraint) {
    .Call('_penPHcure_compute_survival_cpp', PACKAGE = 'penPHcure', beta, base_hazard, tstart, tstop, N, nobs, fail_times, Z, constraint)
}

fit_cure_cpp <- function(b_SV, beta_SV, base_hazard_SV, tstart, tstop, sort1, sort2, status, fail_times, nfails, nobs_i, status_FIX, X_FIX, Z, method, warnings, maxiterNR, maxiterEM, tol, constraint) {
    .Call('_penPHcure_fit_cure_cpp', PACKAGE = 'penPHcure', b_SV, beta_SV, base_hazard_SV, tstart, tstop, sort1, sort2, status, fail_times, nfails, nobs_i, status_FIX, X_FIX, Z, method, warnings, maxiterNR, maxiterEM, tol, constraint)
}

fit_pen_logit_cpp <- function(b_SV, X, Y, warnings, maxiter, tol, N, tun_par, pen_weights, pen_type, epsilon) {
    .Call('_penPHcure_fit_pen_logit_cpp', PACKAGE = 'penPHcure', b_SV, X, Y, warnings, maxiter, tol, N, tun_par, pen_weights, pen_type, epsilon)
}

fit_logit_cpp <- function(b_SV, X, Y, warnings, maxiter, tol) {
    .Call('_penPHcure_fit_logit_cpp', PACKAGE = 'penPHcure', b_SV, X, Y, warnings, maxiter, tol)
}

initialize_PHcure_cpp <- function(tstart, tstop, status, X, whichX) {
    .Call('_penPHcure_initialize_PHcure_cpp', PACKAGE = 'penPHcure', tstart, tstop, status, X, whichX)
}

initialize_PHcure_noX_cpp <- function(tstart, tstop, status) {
    .Call('_penPHcure_initialize_PHcure_noX_cpp', PACKAGE = 'penPHcure', tstart, tstop, status)
}