# 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.