R/RcppExports.R

In frailtySurv: General Semiparametric Shared Frailty Model

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

dgamma_c <- function(x, theta) {
    .Call('_frailtySurv_dgamma_c', PACKAGE = 'frailtySurv', x, theta)
}

deriv_dgamma_c <- function(x, theta) {
    .Call('_frailtySurv_deriv_dgamma_c', PACKAGE = 'frailtySurv', x, theta)
}

lt_dgamma_c <- function(m, s, theta) {
    .Call('_frailtySurv_lt_dgamma_c', PACKAGE = 'frailtySurv', m, s, theta)
}

deriv_lt_dgamma_c <- function(m, s, theta) {
    .Call('_frailtySurv_deriv_lt_dgamma_c', PACKAGE = 'frailtySurv', m, s, theta)
}

deriv_deriv_lt_dgamma_c <- function(m, s, theta) {
    .Call('_frailtySurv_deriv_deriv_lt_dgamma_c', PACKAGE = 'frailtySurv', m, s, theta)
}

lt_dlognormal_c <- function(m, s, theta) {
    .Call('_frailtySurv_lt_dlognormal_c', PACKAGE = 'frailtySurv', m, s, theta)
}

dlognormal_c <- function(x, theta) {
    .Call('_frailtySurv_dlognormal_c', PACKAGE = 'frailtySurv', x, theta)
}

deriv_dlognormal_c <- function(x, theta) {
    .Call('_frailtySurv_deriv_dlognormal_c', PACKAGE = 'frailtySurv', x, theta)
}

deriv_deriv_dlognormal_c <- function(x, theta) {
    .Call('_frailtySurv_deriv_deriv_dlognormal_c', PACKAGE = 'frailtySurv', x, theta)
}

lt_dinvgauss_c <- function(m, s, theta) {
    .Call('_frailtySurv_lt_dinvgauss_c', PACKAGE = 'frailtySurv', m, s, theta)
}

dinvgauss_c <- function(x, theta) {
    .Call('_frailtySurv_dinvgauss_c', PACKAGE = 'frailtySurv', x, theta)
}

deriv_dinvgauss_c <- function(x, theta) {
    .Call('_frailtySurv_deriv_dinvgauss_c', PACKAGE = 'frailtySurv', x, theta)
}

deriv_deriv_dinvgauss_c <- function(x, theta) {
    .Call('_frailtySurv_deriv_deriv_dinvgauss_c', PACKAGE = 'frailtySurv', x, theta)
}

lt_dpvf_coef <- function(p, j, alpha) {
    .Call('_frailtySurv_lt_dpvf_coef', PACKAGE = 'frailtySurv', p, j, alpha)
}

deriv_lt_dpvf_coef <- function(p, j, alpha) {
    .Call('_frailtySurv_deriv_lt_dpvf_coef', PACKAGE = 'frailtySurv', p, j, alpha)
}

deriv_deriv_lt_dpvf_coef <- function(m, j, alpha) {
    .Call('_frailtySurv_deriv_deriv_lt_dpvf_coef', PACKAGE = 'frailtySurv', m, j, alpha)
}

dpvf_c <- function(x, alpha) {
    .Call('_frailtySurv_dpvf_c', PACKAGE = 'frailtySurv', x, alpha)
}

lt_dpvf_c <- function(m, s, alpha) {
    .Call('_frailtySurv_lt_dpvf_c', PACKAGE = 'frailtySurv', m, s, alpha)
}

deriv_lt_dpvf_c <- function(m, s, alpha) {
    .Call('_frailtySurv_deriv_lt_dpvf_c', PACKAGE = 'frailtySurv', m, s, alpha)
}

deriv_deriv_lt_dpvf_c <- function(m, s, alpha) {
    .Call('_frailtySurv_deriv_deriv_lt_dpvf_c', PACKAGE = 'frailtySurv', m, s, alpha)
}

dposstab_c <- function(x, alpha) {
    .Call('_frailtySurv_dposstab_c', PACKAGE = 'frailtySurv', x, alpha)
}

lt_dposstab_c <- function(m, s, alpha) {
    .Call('_frailtySurv_lt_dposstab_c', PACKAGE = 'frailtySurv', m, s, alpha)
}

zeta <- function(s) {
    .Call('_frailtySurv_zeta', PACKAGE = 'frailtySurv', s)
}

phi_c <- function(k, N_dot, H_dot, theta, frailty, abstol, reltol, maxit) {
    .Call('_frailtySurv_phi_c', PACKAGE = 'frailtySurv', k, N_dot, H_dot, theta, frailty, abstol, reltol, maxit)
}

phi_prime_c <- function(k, N_dot, H_dot, theta, frailty, deriv_idx, abstol, reltol, maxit) {
    .Call('_frailtySurv_phi_prime_c', PACKAGE = 'frailtySurv', k, N_dot, H_dot, theta, frailty, deriv_idx, abstol, reltol, maxit)
}

phi_prime_prime_c <- function(k, N_dot, H_dot, theta, frailty, deriv_idx_1, deriv_idx_2, abstol, reltol, maxit) {
    .Call('_frailtySurv_phi_prime_prime_c', PACKAGE = 'frailtySurv', k, N_dot, H_dot, theta, frailty, deriv_idx_1, deriv_idx_2, abstol, reltol, maxit)
}

bh <- function(d_, R_star, K_, Y_, N_, N_dot, beta, theta, frailty, weights, abstol, reltol, maxit) {
    .Call('_frailtySurv_bh', PACKAGE = 'frailtySurv', d_, R_star, K_, Y_, N_, N_dot, beta, theta, frailty, weights, abstol, reltol, maxit)
}

loglikelihood <- function(X_, K_, I_, phi_1_, lambda, beta) {
    .Call('_frailtySurv_loglikelihood', PACKAGE = 'frailtySurv', X_, K_, I_, phi_1_, lambda, beta)
}

xi_beta <- function(X_, I_, H_, psi_, r) {
    .Call('_frailtySurv_xi_beta', PACKAGE = 'frailtySurv', X_, I_, H_, psi_, r)
}

xi_theta <- function(phi_1_, phi_prime_1_, r) {
    .Call('_frailtySurv_xi_theta', PACKAGE = 'frailtySurv', phi_1_, phi_prime_1_, r)
}

phi_k <- function(s, N_dot_, H_dot_, theta, frailty, abstol, reltol, maxit) {
    .Call('_frailtySurv_phi_k', PACKAGE = 'frailtySurv', s, N_dot_, H_dot_, theta, frailty, abstol, reltol, maxit)
}

phi_prime_k <- function(s, theta_idx, N_dot_, H_dot_, theta, frailty, abstol, reltol, maxit) {
    .Call('_frailtySurv_phi_prime_k', PACKAGE = 'frailtySurv', s, theta_idx, N_dot_, H_dot_, theta, frailty, abstol, reltol, maxit)
}

phi_prime_prime_k <- function(s, theta_idx_1, theta_idx_2, N_dot_, H_dot_, theta, frailty, kstart, abstol, reltol, maxit) {
    .Call('_frailtySurv_phi_prime_prime_k', PACKAGE = 'frailtySurv', s, theta_idx_1, theta_idx_2, N_dot_, H_dot_, theta, frailty, kstart, abstol, reltol, maxit)
}

dH_dbeta <- function(s, d_, X_, K_, R_, R_dot_, R_star, phi_1_, phi_2_, phi_3_, Lambda, lambda, beta, theta, frailty) {
    .Call('_frailtySurv_dH_dbeta', PACKAGE = 'frailtySurv', s, d_, X_, K_, R_, R_dot_, R_star, phi_1_, phi_2_, phi_3_, Lambda, lambda, beta, theta, frailty)
}

dH_dtheta <- function(d_, X_, K_, R_, R_dot_, R_star, phi_1_, phi_2_, phi_3_, phi_prime_1_, phi_prime_2_, Lambda, lambda, beta) {
    .Call('_frailtySurv_dH_dtheta', PACKAGE = 'frailtySurv', d_, X_, K_, R_, R_dot_, R_star, phi_1_, phi_2_, phi_3_, phi_prime_1_, phi_prime_2_, Lambda, lambda, beta)
}

jacobian_beta_beta <- function(l, X_, K_, H_, phi_1_, phi_2_, phi_3_, dH_dbeta_, dH_dot_dbeta_) {
    .Call('_frailtySurv_jacobian_beta_beta', PACKAGE = 'frailtySurv', l, X_, K_, H_, phi_1_, phi_2_, phi_3_, dH_dbeta_, dH_dot_dbeta_)
}

jacobian_beta_theta <- function(l, X_, K_, H_, phi_1_, phi_2_, phi_3_, phi_prime_1_, phi_prime_2_, dH_dtheta_, dH_dot_dtheta_) {
    .Call('_frailtySurv_jacobian_beta_theta', PACKAGE = 'frailtySurv', l, X_, K_, H_, phi_1_, phi_2_, phi_3_, phi_prime_1_, phi_prime_2_, dH_dtheta_, dH_dot_dtheta_)
}

jacobian_theta_beta <- function(phi_1_, phi_2_, phi_prime_1_, phi_prime_2_, dH_dot_dbeta_) {
    .Call('_frailtySurv_jacobian_theta_beta', PACKAGE = 'frailtySurv', phi_1_, phi_2_, phi_prime_1_, phi_prime_2_, dH_dot_dbeta_)
}

jacobian_theta_theta <- function(phi_1_, phi_2_, phi_prime_1_, phi_prime_2_, phi_prime_prime_1_, dH_dot_dtheta_) {
    .Call('_frailtySurv_jacobian_theta_theta', PACKAGE = 'frailtySurv', phi_1_, phi_2_, phi_prime_1_, phi_prime_2_, phi_prime_prime_1_, dH_dot_dtheta_)
}

Q_beta <- function(X_, K_, H_, R_star, phi_1_, phi_2_, phi_3_, r) {
    .Call('_frailtySurv_Q_beta', PACKAGE = 'frailtySurv', X_, K_, H_, R_star, phi_1_, phi_2_, phi_3_, r)
}

Q_theta <- function(H_, R_star, phi_1_, phi_2_, phi_prime_1_, phi_prime_2_) {
    .Call('_frailtySurv_Q_theta', PACKAGE = 'frailtySurv', H_, R_star, phi_1_, phi_2_, phi_prime_1_, phi_prime_2_)
}

Ycal <- function(X_, R_star, Y_, psi_, beta) {
    .Call('_frailtySurv_Ycal', PACKAGE = 'frailtySurv', X_, R_star, Y_, psi_, beta)
}

eta <- function(phi_1_, phi_2_, phi_3_) {
    .Call('_frailtySurv_eta', PACKAGE = 'frailtySurv', phi_1_, phi_2_, phi_3_)
}

Upsilon <- function(X_, R_star, K_, R_dot_, eta_, Ycal_, beta) {
    .Call('_frailtySurv_Upsilon', PACKAGE = 'frailtySurv', X_, R_star, K_, R_dot_, eta_, Ycal_, beta)
}

Omega <- function(X_, R_star, N_, R_dot_, eta_, Ycal_, beta) {
    .Call('_frailtySurv_Omega', PACKAGE = 'frailtySurv', X_, R_star, N_, R_dot_, eta_, Ycal_, beta)
}

p_hat <- function(I_, Upsilon_, Omega_, N_tilde_) {
    .Call('_frailtySurv_p_hat', PACKAGE = 'frailtySurv', I_, Upsilon_, Omega_, N_tilde_)
}

pi_r <- function(Q_, N_tilde_, p_hat) {
    .Call('_frailtySurv_pi_r', PACKAGE = 'frailtySurv', Q_, N_tilde_, p_hat)
}

G_rl <- function(pi_r, pi_l, p_hat, Ycal_, N_) {
    .Call('_frailtySurv_G_rl', PACKAGE = 'frailtySurv', pi_r, pi_l, p_hat, Ycal_, N_)
}

M_hat <- function(X_, R_star, N_, Y_, psi_, beta, Lambda) {
    .Call('_frailtySurv_M_hat', PACKAGE = 'frailtySurv', X_, R_star, N_, Y_, psi_, beta, Lambda)
}

u_star <- function(pi_, p_hat, Ycal_, M_hat_) {
    .Call('_frailtySurv_u_star', PACKAGE = 'frailtySurv', pi_, p_hat, Ycal_, M_hat_)
}