R/RcppExports.R

In mmcif: Mixed Multivariate Cumulative Incidence Functions

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

mmcif_data_holder <- function(covs_trajectory, d_covs_trajectory, covs_risk, has_finite_trajectory_prob, cause, n_causes, pair_indices, singletons, covs_trajectory_delayed, pair_cluster_id) {
    .Call(`_mmcif_mmcif_data_holder_to_R`, covs_trajectory, d_covs_trajectory, covs_risk, has_finite_trajectory_prob, cause, n_causes, pair_indices, singletons, covs_trajectory_delayed, pair_cluster_id)
}

mmcif_n_terms <- function(data_ptr) {
    .Call(`_mmcif_mmcif_n_terms`, data_ptr)
}

mmcif_logLik_cpp <- function(data_ptr, par, ghq_data, n_threads) {
    .Call(`_mmcif_mmcif_logLik_to_R`, data_ptr, par, ghq_data, n_threads)
}

mmcif_logLik_grad_cpp <- function(data_ptr, par, ghq_data, n_threads) {
    .Call(`_mmcif_mmcif_logLik_grad_to_R`, data_ptr, par, ghq_data, n_threads)
}

mmcif_sandwich_cpp <- function(data_ptr, par, ghq_data, n_threads, eps = 0.0001, scale = 2L, tol = 0.00000001, order = 6L) {
    .Call(`_mmcif_mmcif_sandwich`, data_ptr, par, ghq_data, n_threads, eps, scale, tol, order)
}

mcif_logLik <- function(data_ptr, par, n_threads, with_risk) {
    .Call(`_mmcif_mcif_logLik_to_R`, data_ptr, par, n_threads, with_risk)
}

mcif_logLik_grad <- function(data_ptr, par, n_threads, with_risk) {
    .Call(`_mmcif_mcif_logLik_grad_to_R`, data_ptr, par, n_threads, with_risk)
}

ns_ptr <- function(boundary_knots, interior_knots) {
    .Call(`_mmcif_ns_ptr`, boundary_knots, interior_knots)
}

ns_eval <- function(ptr, points, ders) {
    .Call(`_mmcif_ns_eval`, ptr, points, ders)
}

mmcif_pd_univariate_cpp <- function(data_ptr, par, ghq_data, cov_trajectory, d_cov_trajectory, cov_risk, has_finite_trajectory_prob, cause, cov_trajectory_delayed, deriv) {
    .Call(`_mmcif_mmcif_pd_univariate_cpp`, data_ptr, par, ghq_data, cov_trajectory, d_cov_trajectory, cov_risk, has_finite_trajectory_prob, cause, cov_trajectory_delayed, deriv)
}

mmcif_pd_bivariate_cpp <- function(data_ptr, par, ghq_data, cov_trajectory, d_cov_trajectory, cov_risk, has_finite_trajectory_prob, cause, cov_trajectory_delayed, derivs) {
    .Call(`_mmcif_mmcif_pd_bivariate_cpp`, data_ptr, par, ghq_data, cov_trajectory, d_cov_trajectory, cov_risk, has_finite_trajectory_prob, cause, cov_trajectory_delayed, derivs)
}

create_pair_indices <- function(cluster_id, obs_idx) {
    .Call(`_mmcif_create_pair_indices`, cluster_id, obs_idx)
}

commutation_dot <- function(n, m, x, transpose) {
    .Call(`_mmcif_commutation_dot`, n, m, x, transpose)
}

get_commutation <- function(n, m) {
    .Call(`_mmcif_get_commutation`, n, m)
}