R/RcppExports.R

In pgsc: Computes Powell's Generalized Synthetic Control Estimator

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

W_extract <- function(wt, N) {
    .Call(`_pgsc_W_extract`, wt, N)
}

gsc_target <- function(N, T, wt, Y, D, b, sig_i, print_level = 0L, pen_gain = 1e05, return_n_obs = FALSE) {
    .Call(`_pgsc_gsc_target`, N, T, wt, Y, D, b, sig_i, print_level, pen_gain, return_n_obs)
}

gsc_target_grad_num <- function(N, T, wt, Y, D, b, sig_i, inc = 1e-06, pen_gain = 1e05) {
    .Call(`_pgsc_gsc_target_grad_num`, N, T, wt, Y, D, b, sig_i, inc, pen_gain)
}

gsc_target_grad <- function(N, T, wt, Y, D, b, sig_i, pen_gain = 1e05) {
    .Call(`_pgsc_gsc_target_grad`, N, T, wt, Y, D, b, sig_i, pen_gain)
}

gsc_target_grad_b <- function(N, T, wt, Y, D, b, sig_i) {
    .Call(`_pgsc_gsc_target_grad_b`, N, T, wt, Y, D, b, sig_i)
}

gsc_target_i <- function(N, T, wt, Y, D, b) {
    .Call(`_pgsc_gsc_target_i`, N, T, wt, Y, D, b)
}