R/RcppExports.R

In InnovationValueInitiative/IVI-RA: The IVI-RA model

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

test_ttd <- function(x) {
    .Call('_iviRA_test_ttd', PACKAGE = 'iviRA', x)
}

sim_mlogit_classC <- function(w, delta) {
    .Call('_iviRA_sim_mlogit_classC', PACKAGE = 'iviRA', w, delta)
}

sim_dhaq_class_lcgm1C <- function(year, cycle_length, beta) {
    .Call('_iviRA_sim_dhaq_class_lcgm1C', PACKAGE = 'iviRA', year, cycle_length, beta)
}

sim_dhaq_lcgm1C <- function(year, cycle_length, age, female, das28, delta, beta) {
    .Call('_iviRA_sim_dhaq_lcgm1C', PACKAGE = 'iviRA', year, cycle_length, age, female, das28, delta, beta)
}

sim_tx_cost1C <- function(t, agents_ind, tx_name, init_dose_val, ann_dose_val, strength_val, init_num_doses, ann_num_doses, price, infusion_cost, loading_dose, weight_based, weight, cycle_length, discount) {
    .Call('_iviRA_sim_tx_cost1C', PACKAGE = 'iviRA', t, agents_ind, tx_name, init_dose_val, ann_dose_val, strength_val, init_num_doses, ann_num_doses, price, infusion_cost, loading_dose, weight_based, weight, cycle_length, discount)
}

sim_utility_wailoo1C <- function(age, disease_duration, haq0, male, prev_dmards, haq, b) {
    .Call('_iviRA_sim_utility_wailoo1C', PACKAGE = 'iviRA', age, disease_duration, haq0, male, prev_dmards, haq, b)
}

sim_utility_wailooC <- function(sim, id, age, disease_duration, haq0, male, prev_dmards, haq, b_int, b_age, b_disease_duration, b_haq0, b_male, b_prev_dmards, b_haq) {
    .Call('_iviRA_sim_utility_wailooC', PACKAGE = 'iviRA', sim, id, age, disease_duration, haq0, male, prev_dmards, haq, b_int, b_age, b_disease_duration, b_haq0, b_male, b_prev_dmards, b_haq)
}

sim_utility_mixtureC <- function(id, sim, haq, pain_mean, haq_mean, pain_var, haq_var, painhaq_cor, age, male, beta1, beta2, beta3, beta4, alpha1, alpha2, alpha3, alpha4, alpha, epsilon1_sd, epsilon2_sd, epsilon3_sd, epsilon4_sd, mu_sd, delta) {
    .Call('_iviRA_sim_utility_mixtureC', PACKAGE = 'iviRA', id, sim, haq, pain_mean, haq_mean, pain_var, haq_var, painhaq_cor, age, male, beta1, beta2, beta3, beta4, alpha1, alpha2, alpha3, alpha4, alpha, epsilon1_sd, epsilon2_sd, epsilon3_sd, epsilon4_sd, mu_sd, delta)
}

sim_qalysC <- function(utility, yrlen, sim, tx, si, si_ul, x_attr, tx_attr_coef) {
    .Call('_iviRA_sim_qalysC', PACKAGE = 'iviRA', utility, yrlen, sim, tx, si, si_ul, x_attr, tx_attr_coef)
}

sim_dhaq6C <- function(npats, nsims, hist, line, tx_inds, nbt_ind, x_acr, nma_acr_list, x_haq, nma_haq_list, acr2eular, acr2haq, eular2haq, tx_ihaq_type) {
    .Call('_iviRA_sim_dhaq6C', PACKAGE = 'iviRA', npats, nsims, hist, line, tx_inds, nbt_ind, x_acr, nma_acr_list, x_haq, nma_haq_list, acr2eular, acr2haq, eular2haq, tx_ihaq_type)
}

sim_iviRA_C <- function(tx_inds, tx_data, model_structures_mat, hist, haq0, das28_0, sdai0, cdai0, age0, male, prev_dmards, nma_acr_list, x_acr, nma_haq_list, x_haq, nma_das28_list, x_das28, acr2eular, acr2haq, eular2haq, acr2das28, acr2sdai, acr2cdai, tswitch_da, haq_lprog_therapy, haq_lprog_age, haq_lcgm_delta, haq_lcgm_beta, rebound_factor, lifetable_male, lifetable_female, x_mort, logor_mort, x_ttd_all, x_ttd_da, x_ttd_eular, ttd_all_list, ttd_da_list, ttd_eular_mod_list, ttd_eular_good_list, cdmards, nbt, si_loc, si_anc1, si_anc2, si_dist, haqdelta_loghr, max_months, hosp_days, cost_pday, mgmt_cost, si_cost, prod_loss, tc_list, weight, coefs_wailoo, pars_util_mix, si_ul, utility_tx_attr, discount_rate, output) {
    .Call('_iviRA_sim_iviRA_C', PACKAGE = 'iviRA', tx_inds, tx_data, model_structures_mat, hist, haq0, das28_0, sdai0, cdai0, age0, male, prev_dmards, nma_acr_list, x_acr, nma_haq_list, x_haq, nma_das28_list, x_das28, acr2eular, acr2haq, eular2haq, acr2das28, acr2sdai, acr2cdai, tswitch_da, haq_lprog_therapy, haq_lprog_age, haq_lcgm_delta, haq_lcgm_beta, rebound_factor, lifetable_male, lifetable_female, x_mort, logor_mort, x_ttd_all, x_ttd_da, x_ttd_eular, ttd_all_list, ttd_da_list, ttd_eular_mod_list, ttd_eular_good_list, cdmards, nbt, si_loc, si_anc1, si_anc2, si_dist, haqdelta_loghr, max_months, hosp_days, cost_pday, mgmt_cost, si_cost, prod_loss, tc_list, weight, coefs_wailoo, pars_util_mix, si_ul, utility_tx_attr, discount_rate, output)
}

mlogit_probC <- function(x, beta) {
    .Call('_iviRA_mlogit_probC', PACKAGE = 'iviRA', x, beta)
}

newprobC <- function(x, logor, logit_baseprob) {
    .Call('_iviRA_newprobC', PACKAGE = 'iviRA', x, logor, logit_baseprob)
}

mortprobC <- function(age, male, lifetable_male, lifetable_female, x, logor, haq0, haq, cycle_length, month, loghr_vec) {
    .Call('_iviRA_mortprobC', PACKAGE = 'iviRA', age, male, lifetable_male, lifetable_female, x, logor, haq0, haq, cycle_length, month, loghr_vec)
}

sample_deathC <- function(age, male, lifetable_male, lifetable_female, x, logor, haq0, haq, cycle_length, month, loghr_vec) {
    .Call('_iviRA_sample_deathC', PACKAGE = 'iviRA', age, male, lifetable_male, lifetable_female, x, logor, haq0, haq, cycle_length, month, loghr_vec)
}

sample_survC <- function(n, age0, male, lifetable_male, lifetable_female, x, logor, haq0, haq, cycle_length, loghr_vec) {
    .Call('_iviRA_sample_survC', PACKAGE = 'iviRA', n, age0, male, lifetable_male, lifetable_female, x, logor, haq0, haq, cycle_length, loghr_vec)
}

rsurvC <- function(location, anc1, dist, anc2 = 0.0) {
    .Call('_iviRA_rsurvC', PACKAGE = 'iviRA', location, anc1, dist, anc2)
}

sim_acr_test <- function() {
    .Call('_iviRA_sim_acr_test', PACKAGE = 'iviRA')
}

sim_lm_test <- function() {
    .Call('_iviRA_sim_lm_test', PACKAGE = 'iviRA')
}

ttd_da_test <- function(da_cat) {
    .Call('_iviRA_ttd_da_test', PACKAGE = 'iviRA', da_cat)
}

arma_rowvec_anyNA <- function(x) {
    .Call('_iviRA_arma_rowvec_anyNA', PACKAGE = 'iviRA', x)
}