debtLimit: Computes debt limits

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

keep_mat <- function(X, keep) {
    .Call('debtLimits_keep_mat', PACKAGE = 'debtLimits', X, keep)
}

pcd_scaling <- function(X) {
    .Call('debtLimits_pcd_scaling', PACKAGE = 'debtLimits', X)
}

eds_keep <- function(X_norm, eps) {
    .Call('debtLimits_eds_keep', PACKAGE = 'debtLimits', X_norm, eps)
}

p_eps <- function(X, eps) {
    .Call('debtLimits_p_eps', PACKAGE = 'debtLimits', X, eps)
}

p_eps_const <- function(X, eps) {
    .Call('debtLimits_p_eps_const', PACKAGE = 'debtLimits', X, eps)
}

normal_kernel_density <- function(X, h = 0) {
    .Call('debtLimits_normal_kernel_density', PACKAGE = 'debtLimits', X, h)
}

almost_ergodic_indices <- function(X, delta, h = 0) {
    .Call('debtLimits_almost_ergodic_indices', PACKAGE = 'debtLimits', X, delta, h)
}

almost_ergodic <- function(X, delta, h = 0) {
    .Call('debtLimits_almost_ergodic', PACKAGE = 'debtLimits', X, delta, h)
}

p_eps_cheap_idx <- function(X, eps, delta, h = 0) {
    .Call('debtLimits_p_eps_cheap_idx', PACKAGE = 'debtLimits', X, eps, delta, h)
}

p_eps_cheap <- function(X, eps, delta, h = 0) {
    .Call('debtLimits_p_eps_cheap', PACKAGE = 'debtLimits', X, eps, delta, h)
}

p_eps_cheap_const_idx <- function(X, eps, delta, h = 0) {
    .Call('debtLimits_p_eps_cheap_const_idx', PACKAGE = 'debtLimits', X, eps, delta, h)
}

p_eps_cheap_const <- function(X, eps, delta, h = 0) {
    .Call('debtLimits_p_eps_cheap_const', PACKAGE = 'debtLimits', X, eps, delta, h)
}

d_grid_fn <- function(d, x_sd, x_sd_mult = 1.5, n_pts = 11L, min_dist = 15) {
    .Call('debtLimits_d_grid_fn', PACKAGE = 'debtLimits', d, x_sd, x_sd_mult, n_pts, min_dist)
}

e_grid_fn <- function(x_sd, n_pts = 7L, d_tri = FALSE) {
    .Call('debtLimits_e_grid_fn', PACKAGE = 'debtLimits', x_sd, n_pts, d_tri)
}

Q_init <- function(d_grid, d, R) {
    .Call('debtLimits_Q_init', PACKAGE = 'debtLimits', d_grid, d, R)
}

p_init_d_i <- function(params, p, d, An, Bn, Cn, def, i) {
    .Call('debtLimits_p_init_d_i', PACKAGE = 'debtLimits', params, p, d, An, Bn, Cn, def, i)
}

p_fp <- function(params, p, d, An, Bn, Cn, def, maxit = 200L, tol = 1e-06) {
    .Call('debtLimits_p_fp', PACKAGE = 'debtLimits', params, p, d, An, Bn, Cn, def, maxit, tol)
}

p_ax_c_i <- function(params, p, d, m, c, i, An, Bn, Cn, def, maxit = 200L, tol = 1e-06, print_level = 0L) {
    .Call('debtLimits_p_ax_c_i', PACKAGE = 'debtLimits', params, p, d, m, c, i, An, Bn, Cn, def, maxit, tol, print_level)
}

p_min_tanget_i <- function(params, p, d, m, i, An, Bn, Cn, def, maxit = 200L, tol = 1e-06, print_level = 0L) {
    .Call('debtLimits_p_min_tanget_i', PACKAGE = 'debtLimits', params, p, d, m, i, An, Bn, Cn, def, maxit, tol, print_level)
}

d_init_p_i <- function(params, p, d, An, Bn, Cn, def, i, d_max, d_min = 0, maxit = 100L, print_level = 0L, max_outer = 10L, i_outer = 0L, d_step_0 = -10) {
    .Call('debtLimits_d_init_p_i', PACKAGE = 'debtLimits', params, p, d, An, Bn, Cn, def, i, d_max, d_min, maxit, print_level, max_outer, i_outer, d_step_0)
}

p_init_d <- function(params, p, d, An, Bn, Cn, def) {
    .Call('debtLimits_p_init_d', PACKAGE = 'debtLimits', params, p, d, An, Bn, Cn, def)
}

d_init_p <- function(params, p, d, An, Bn, Cn, def, d_max, maxit = 100L, print_level = 0L, max_outer = 10L) {
    .Call('debtLimits_d_init_p', PACKAGE = 'debtLimits', params, p, d, An, Bn, Cn, def, d_max, maxit, print_level, max_outer)
}

q_fn <- function(R, p, trans, lambda, phi, n, cont_type, G, An, def) {
    .Call('debtLimits_q_fn', PACKAGE = 'debtLimits', R, p, trans, lambda, phi, n, cont_type, G, An, def)
}

q_d_p <- function(R, p, trans, lambda, phi, n, cont_type, d_type, G, An, Bn, def) {
    .Call('debtLimits_q_d_p', PACKAGE = 'debtLimits', R, p, trans, lambda, phi, n, cont_type, d_type, G, An, Bn, def)
}

q_d_p_num_i <- function(R, p, trans, lambda, phi, n, i, cont_type, G, An, def) {
    .Call('debtLimits_q_d_p_num_i', PACKAGE = 'debtLimits', R, p, trans, lambda, phi, n, i, cont_type, G, An, def)
}

d_prime <- function(i_x, d, d_bar, qhat, Q, d_grid, G, shift, lambda, e_grid, coeff, tri, D_prime_0, D_prime_0_flag, print_level = 1L, tol = 1e-05, maxit = 20L, report = FALSE) {
    .Call('debtLimits_d_prime', PACKAGE = 'debtLimits', i_x, d, d_bar, qhat, Q, d_grid, G, shift, lambda, e_grid, coeff, tri, D_prime_0, D_prime_0_flag, print_level, tol, maxit, report)
}

q_e <- function(d, d_bar, qhat, Q, d_grid, G, shift, lambda, e_grid, coeff, tri, D_prime_0, D_prime_0_flag, trans, print_level = 1L, tol = 1e-05, maxit = 20L) {
    .Call('debtLimits_q_e', PACKAGE = 'debtLimits', d, d_bar, qhat, Q, d_grid, G, shift, lambda, e_grid, coeff, tri, D_prime_0, D_prime_0_flag, trans, print_level, tol, maxit)
}

q_hat_fn <- function(d, p, d_bar, qhat, Q, d_grid, R, G, shift, lambda, phi, e_grid, coeff, tri, D_prime_0, D_prime_0_flag, trans, print_level = 1L, tol = 1e-05, maxit = 50L, d_tol = 1e-05, d_maxit = 20L) {
    .Call('debtLimits_q_hat_fn', PACKAGE = 'debtLimits', d, p, d_bar, qhat, Q, d_grid, R, G, shift, lambda, phi, e_grid, coeff, tri, D_prime_0, D_prime_0_flag, trans, print_level, tol, maxit, d_tol, d_maxit)
}

q_hat_mat <- function(P, d_bar, QHat, Q, d_grid, R, G, shift, lambda, phi, e_grid, coeff, tri, D_prime_0, D_prime_0_flag, trans, print_level = 0L, tol = 1e-04, maxit = 50L, d_tol = 1e-05, d_maxit = 20L) {
    .Call('debtLimits_q_hat_mat', PACKAGE = 'debtLimits', P, d_bar, QHat, Q, d_grid, R, G, shift, lambda, phi, e_grid, coeff, tri, D_prime_0, D_prime_0_flag, trans, print_level, tol, maxit, d_tol, d_maxit)
}

d_prime_mat <- function(d_bar, QHat, Q, d_grid, G, shift, lambda, e_grid, trans, coeff, tri, D_prime_0, D_prime_0_flag, print_level = 1L, tol = 1e-05, maxit = 20L) {
    .Call('debtLimits_d_prime_mat', PACKAGE = 'debtLimits', d_bar, QHat, Q, d_grid, G, shift, lambda, e_grid, trans, coeff, tri, D_prime_0, D_prime_0_flag, print_level, tol, maxit)
}

qe_mat <- function(d_bar, QHat, Q, d_grid, G, shift, lambda, e_grid, trans, coeff, tri, D_prime_0, D_prime_0_flag, print_level = 0L, tol = 1e-05, maxit = 20L) {
    .Call('debtLimits_qe_mat', PACKAGE = 'debtLimits', d_bar, QHat, Q, d_grid, G, shift, lambda, e_grid, trans, coeff, tri, D_prime_0, D_prime_0_flag, print_level, tol, maxit)
}

one_step_var_lhood <- function(Y, par, print_level = 0L) {
    .Call('debtLimits_one_step_var_lhood', PACKAGE = 'debtLimits', Y, par, print_level)
}

msw_var_lhood <- function(Y, p0, P, par, print_level = 0L) {
    .Call('debtLimits_msw_var_lhood', PACKAGE = 'debtLimits', Y, p0, P, par, print_level)
}

msw_var_lhood_p <- function(Y, p0, P, par, print_level = 0L) {
    .Call('debtLimits_msw_var_lhood_p', PACKAGE = 'debtLimits', Y, p0, P, par, print_level)
}

sim_core <- function(i_idx_R, d_bar, d_grid, P, Q, params, d0, s_flag, s_in) {
    .Call('debtLimits_sim_core', PACKAGE = 'debtLimits', i_idx_R, d_bar, d_grid, P, Q, params, d0, s_flag, s_in)
}

v_surp <- function(d, coeff, shift, tri) {
    .Call('debtLimits_v_surp', PACKAGE = 'debtLimits', d, coeff, shift, tri)
}

surp <- function(d, coeff, shift = 0, tri = FALSE) {
    .Call('debtLimits_surp', PACKAGE = 'debtLimits', d, coeff, shift, tri)
}

surp_poly <- function(d, coeff, shift = 0) {
    .Call('debtLimits_surp_poly', PACKAGE = 'debtLimits', d, coeff, shift)
}

surp_tri <- function(d, coeff, shift = 0) {
    .Call('debtLimits_surp_tri', PACKAGE = 'debtLimits', d, coeff, shift)
}

d_surp_tri <- function(d, coeff, shift = 0) {
    .Call('debtLimits_d_surp_tri', PACKAGE = 'debtLimits', d, coeff, shift)
}

d_triangle <- function(x, a, b, c) {
    .Call('debtLimits_d_triangle', PACKAGE = 'debtLimits', x, a, b, c)
}

p_triangle <- function(x, a, b, c) {
    .Call('debtLimits_p_triangle', PACKAGE = 'debtLimits', x, a, b, c)
}

d_triangle2 <- function(x, a, b, c) {
    .Call('debtLimits_d_triangle2', PACKAGE = 'debtLimits', x, a, b, c)
}

q_triangle <- function(q, a, b, c) {
    .Call('debtLimits_q_triangle', PACKAGE = 'debtLimits', q, a, b, c)
}

zed <- function(p, d, params, An, Cn, def, print_level) {
    .Call('debtLimits_zed', PACKAGE = 'debtLimits', p, d, params, An, Cn, def, print_level)
}

zed_d <- function(p, d, dprime, params, An, Cn, def, print_level) {
    .Call('debtLimits_zed_d', PACKAGE = 'debtLimits', p, d, dprime, params, An, Cn, def, print_level)
}

zed_2 <- function(p, d, params, An, Bn, Cn, def) {
    .Call('debtLimits_zed_2', PACKAGE = 'debtLimits', p, d, params, An, Bn, Cn, def)
}

zed_2_num <- function(p, d, params, Cn, An, def) {
    .Call('debtLimits_zed_2_num', PACKAGE = 'debtLimits', p, d, params, Cn, An, def)
}

zed_2_num_d_i <- function(p, d, params, i, An, Cn, def) {
    .Call('debtLimits_zed_2_num_d_i', PACKAGE = 'debtLimits', p, d, params, i, An, Cn, def)
}

zed_2_ana <- function(p, d, params, An, Bn, Cn, def) {
    .Call('debtLimits_zed_2_ana', PACKAGE = 'debtLimits', p, d, params, An, Bn, Cn, def)
}

zed_d_0 <- function(p, d, params, print_level) {
    .Call('debtLimits_zed_d_0', PACKAGE = 'debtLimits', p, d, params, print_level)
}

zed_d_0_i <- function(p, d, params, i, print_level) {
    .Call('debtLimits_zed_d_0_i', PACKAGE = 'debtLimits', p, d, params, i, print_level)
}

zed_2_ana_0 <- function(p, d, params) {
    .Call('debtLimits_zed_2_ana_0', PACKAGE = 'debtLimits', p, d, params)
}

zed_2_ana_0_i <- function(p, d, params, i) {
    .Call('debtLimits_zed_2_ana_0_i', PACKAGE = 'debtLimits', p, d, params, i)
}

ziter <- function(P, d_bar, QHat, d_grid, e_grid, tri, D_prime_0, D_prime_0_flag, params, print_level = 0L, tol = 1e-04, maxit = 100L, q_tol = 1e-04, q_maxit = 50L, d_tol = 1e-05, d_maxit = 20L, Q_out = FALSE) {
    .Call('debtLimits_ziter', PACKAGE = 'debtLimits', P, d_bar, QHat, d_grid, e_grid, tri, D_prime_0, D_prime_0_flag, params, print_level, tol, maxit, q_tol, q_maxit, d_tol, d_maxit, Q_out)
}