R/RcppExports.R

Defines functions dpR1_multinom dpR_multinom findcause findR IPW_ithealp_cox IPW_ithealp_ag AIPW_coxscore_cpp AIPW_coxfit_cpp AIPW_agscore_cpp AIPW_agreg_cpp

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

AIPW_agreg_cpp <- function(maxiter, start, tstop, event, covar, eventid, id, offset, strata, sort1, sort2, marker, R, pR, dpR, total_R, marker_r, whereX, whereW, gamma, comb_y, nvar, n_marker, nR, ngamma, nalp, eps, first_cont_rr, second_cont_bl, second_cont_rr, init_beta) {
    .Call(`_AIPWsubtype_AIPW_agreg_cpp`, maxiter, start, tstop, event, covar, eventid, id, offset, strata, sort1, sort2, marker, R, pR, dpR, total_R, marker_r, whereX, whereW, gamma, comb_y, nvar, n_marker, nR, ngamma, nalp, eps, first_cont_rr, second_cont_bl, second_cont_rr, init_beta)
}

AIPW_agscore_cpp <- function(start, stop, event, covar, eventid, id, score, strata, marker, R, pR, total_R, marker_r, whereX, whereW, gamma, comb_y, nvar, n_marker, nR, ngamma, nalp, first_cont_rr, second_cont_bl, second_cont_rr) {
    .Call(`_AIPWsubtype_AIPW_agscore_cpp`, start, stop, event, covar, eventid, id, score, strata, marker, R, pR, total_R, marker_r, whereX, whereW, gamma, comb_y, nvar, n_marker, nR, ngamma, nalp, first_cont_rr, second_cont_bl, second_cont_rr)
}

AIPW_coxfit_cpp <- function(maxiter, time, status, covar, eventid, id, offset, strata, marker, R, pR, dpR, total_R, marker_r, whereX, whereW, gamma, comb_y, nvar, n_marker, nR, ngamma, nalp, eps, first_cont_rr, second_cont_bl, second_cont_rr, init_beta) {
    .Call(`_AIPWsubtype_AIPW_coxfit_cpp`, maxiter, time, status, covar, eventid, id, offset, strata, marker, R, pR, dpR, total_R, marker_r, whereX, whereW, gamma, comb_y, nvar, n_marker, nR, ngamma, nalp, eps, first_cont_rr, second_cont_bl, second_cont_rr, init_beta)
}

AIPW_coxscore_cpp <- function(time, status, covar, eventid, id, score, strata, marker, R, pR, total_R, marker_r, whereX, whereW, gamma, comb_y, nvar, n_marker, nR, ngamma, nalp, first_cont_rr, second_cont_bl, second_cont_rr) {
    .Call(`_AIPWsubtype_AIPW_coxscore_cpp`, time, status, covar, eventid, id, score, strata, marker, R, pR, total_R, marker_r, whereX, whereW, gamma, comb_y, nvar, n_marker, nR, ngamma, nalp, first_cont_rr, second_cont_bl, second_cont_rr)
}

IPW_ithealp_ag <- function(start, stop, event, eta, strata, sort1, sort2, covar, dpi, weights, nused, nvar, nalp) {
    .Call(`_AIPWsubtype_IPW_ithealp_ag`, start, stop, event, eta, strata, sort1, sort2, covar, dpi, weights, nused, nvar, nalp)
}

IPW_ithealp_cox <- function(time, status, lp, strata, covar, dpi, weights, nused, nvar, nalp) {
    .Call(`_AIPWsubtype_IPW_ithealp_cox`, time, status, lp, strata, covar, dpi, weights, nused, nvar, nalp)
}

findR <- function(R, event, fonR, Rmat, ototal_R) {
    .Call(`_AIPWsubtype_findR`, R, event, fonR, Rmat, ototal_R)
}

findcause <- function(R, cause, event, marker, on_subtype, ototal_subtype) {
    .Call(`_AIPWsubtype_findcause`, R, cause, event, marker, on_subtype, ototal_subtype)
}

dpR_multinom <- function(X, score, nR, twostage, nrp, nalp, nalp0) {
    .Call(`_AIPWsubtype_dpR_multinom`, X, score, nR, twostage, nrp, nalp, nalp0)
}

dpR1_multinom <- function(X, score, nR, twostage, nrp, nalp, nalp0) {
    .Call(`_AIPWsubtype_dpR1_multinom`, X, score, nR, twostage, nrp, nalp, nalp0)
}
joolee0918/AIPWsubtype documentation built on Feb. 29, 2024, 5:03 p.m.