R/RcppExports.R

In fect: Fixed Effects Counterfactuals

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

loglh <- function(Y_fit, Y) {
    .Call(`_fect_loglh`, Y_fit, Y)
}

loglh_ub <- function(Y_fit, Y, I) {
    .Call(`_fect_loglh_ub`, Y_fit, Y, I)
}

data_ub_adj <- function(I_data, data) {
    .Call(`_fect_data_ub_adj`, I_data, data)
}

XXinv <- function(X) {
    .Call(`_fect_XXinv`, X)
}

panel_beta <- function(X, xxinv, Y, FE) {
    .Call(`_fect_panel_beta`, X, xxinv, Y, FE)
}

panel_est <- function(X, Y, MF) {
    .Call(`_fect_panel_est`, X, Y, MF)
}

inter_fe_d_qr <- function(Y, Y_fit0, FE0, factor0, xi0, X, r, force, mniter = 5000L, w = 1.0, tol = 1e-5) {
    .Call(`_fect_inter_fe_d_qr`, Y, Y_fit0, FE0, factor0, xi0, X, r, force, mniter, w, tol)
}

inter_fe_d_qr_ub <- function(Y, Y_fit0, FE0, factor0, xi0, X, I, r, force, mniter = 5000L, w = 1.0, tol = 1e-5) {
    .Call(`_fect_inter_fe_d_qr_ub`, Y, Y_fit0, FE0, factor0, xi0, X, I, r, force, mniter, w, tol)
}

qr_factor <- function(F, L) {
    .Call(`_fect_qr_factor`, F, L)
}

IND <- function(I) {
    .Call(`_fect_IND`, I)
}

subfe <- function(Y, X, I, intercept) {
    .Call(`_fect_subfe`, Y, X, I, intercept)
}

l_ub <- function(Y, F, I, r, force) {
    .Call(`_fect_l_ub`, Y, F, I, r, force)
}

f_ub <- function(Y, L, I, r, force) {
    .Call(`_fect_f_ub`, Y, L, I, r, force)
}

fe <- function(E, F_old, xi_old, force, r) {
    .Call(`_fect_fe`, E, F_old, xi_old, force, r)
}

fe_ub <- function(E, I, F_old, xi_old, force, r) {
    .Call(`_fect_fe_ub`, E, I, F_old, xi_old, force, r)
}

inter_fe_d <- function(Y, Y_fit0, FE0, X, r, force, mniter = 5000L, w = 1.0, tol = 1e-5) {
    .Call(`_fect_inter_fe_d`, Y, Y_fit0, FE0, X, r, force, mniter, w, tol)
}

inter_fe_d_ub <- function(Y, Y_fit0, FE0, X, I, r, force, mniter = 5000L, w = 1.0, tol = 1e-5) {
    .Call(`_fect_inter_fe_d_ub`, Y, Y_fit0, FE0, X, I, r, force, mniter, w, tol)
}

Y_demean <- function(Y, force) {
    .Call(`_fect_Y_demean`, Y, force)
}

fe_add <- function(alpha_Y, xi_Y, mu_Y, T, N, force) {
    .Call(`_fect_fe_add`, alpha_Y, xi_Y, mu_Y, T, N, force)
}

panel_factor <- function(E, r) {
    .Call(`_fect_panel_factor`, E, r)
}

panel_FE <- function(E, lambda, hard) {
    .Call(`_fect_panel_FE`, E, lambda, hard)
}

ife <- function(E, force, mc, r, hard, lambda) {
    .Call(`_fect_ife`, E, force, mc, r, hard, lambda)
}

inter_fe <- function(Y, X, r, force, beta0, tol = 1e-5) {
    .Call(`_fect_inter_fe`, Y, X, r, force, beta0, tol)
}

inter_fe_ub <- function(Y, Y0, X, I, beta0, r, force, tol = 1e-5) {
    .Call(`_fect_inter_fe_ub`, Y, Y0, X, I, beta0, r, force, tol)
}

fe_ad_iter <- function(Y, Y0, I, force, tolerate) {
    .Call(`_fect_fe_ad_iter`, Y, Y0, I, force, tolerate)
}

fe_ad_covar_iter <- function(XX, xxinv, Y, Y0, I, beta0, force, tolerate) {
    .Call(`_fect_fe_ad_covar_iter`, XX, xxinv, Y, Y0, I, beta0, force, tolerate)
}

fe_ad_inter_iter <- function(Y, Y0, I, force, mc, r, hard, lambda, tolerate) {
    .Call(`_fect_fe_ad_inter_iter`, Y, Y0, I, force, mc, r, hard, lambda, tolerate)
}

fe_ad_inter_covar_iter <- function(XX, xxinv, Y, Y0, I, beta0, force, mc, r, hard, lambda, tolerate) {
    .Call(`_fect_fe_ad_inter_covar_iter`, XX, xxinv, Y, Y0, I, beta0, force, mc, r, hard, lambda, tolerate)
}

beta_iter <- function(X, xxinv, Y, r, tolerate, beta0) {
    .Call(`_fect_beta_iter`, X, xxinv, Y, r, tolerate, beta0)
}

inter_fe_mc <- function(Y, Y0, X, I, beta0, r, lambda, force, tol = 1e-5) {
    .Call(`_fect_inter_fe_mc`, Y, Y0, X, I, beta0, r, lambda, force, tol)
}