R/RcppExports.R

Defines functions check_missing_data_control_units check_missing_data_treated_units do_exact_matching_refinement multiply_weights_msm check_control_units_for_treatment_restriction check_treated_units_for_treatment_reversion get_yearly_dmats non_matching_matcher get_msets_helper get_comparison_histories get_treated_indices handle_vits get_vit_index_unsigned equality_four_cpp needs_renormalization prep_lead_years get_dits get_vit_index

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

get_vit_index <- function(t_id_key, control_treatment_t_ids, control_treatment_set_nums) {
    .Call('_PanelMatch_get_vit_index', PACKAGE = 'PanelMatch', t_id_key, control_treatment_t_ids, control_treatment_set_nums)
}

get_dits <- function(t_id_key, nonempty_t_ids) {
    .Call('_PanelMatch_get_dits', PACKAGE = 'PanelMatch', t_id_key, nonempty_t_ids)
}

prep_lead_years <- function(ts, lead_window) {
    .Call('_PanelMatch_prep_lead_years', PACKAGE = 'PanelMatch', ts, lead_window)
}

needs_renormalization <- function(set_index_list) {
    .Call('_PanelMatch_needs_renormalization', PACKAGE = 'PanelMatch', set_index_list)
}

equality_four_cpp <- function(Wit_vals, y, z) {
    .Call('_PanelMatch_equality_four_cpp', PACKAGE = 'PanelMatch', Wit_vals, y, z)
}

get_vit_index_unsigned <- function(t_id_key, control_treatment_t_ids, control_treatment_set_nums) {
    .Call('_PanelMatch_get_vit_index_unsigned', PACKAGE = 'PanelMatch', t_id_key, control_treatment_t_ids, control_treatment_set_nums)
}

handle_vits <- function(nrow_data, mset_size, num_empty, weights, tidkey, control_treatment_tids, ct_set_nums) {
    .Call('_PanelMatch_handle_vits', PACKAGE = 'PanelMatch', nrow_data, mset_size, num_empty, weights, tidkey, control_treatment_tids, ct_set_nums)
}

get_treated_indices <- function(ordered_df, treated_indices, treat_col_idx, unit_var_col) {
    .Call('_PanelMatch_get_treated_indices', PACKAGE = 'PanelMatch', ordered_df, treated_indices, treat_col_idx, unit_var_col)
}

get_comparison_histories <- function(compmat, ts, ids, t_col, id_col, L, treat_col) {
    .Call('_PanelMatch_get_comparison_histories', PACKAGE = 'PanelMatch', compmat, ts, ids, t_col, id_col, L, treat_col)
}

get_msets_helper <- function(control_history_list, widemat, t_as_col_nums, ids, L) {
    .Call('_PanelMatch_get_msets_helper', PACKAGE = 'PanelMatch', control_history_list, widemat, t_as_col_nums, ids, L)
}

non_matching_matcher <- function(control_history_list, widemat, t_as_col_nums, ids, L, missing_window) {
    .Call('_PanelMatch_non_matching_matcher', PACKAGE = 'PanelMatch', control_history_list, widemat, t_as_col_nums, ids, L, missing_window)
}

get_yearly_dmats <- function(expanded_data, treated_ids, ts_to_fetch, row_key, matched_sets, lag) {
    .Call('_PanelMatch_get_yearly_dmats', PACKAGE = 'PanelMatch', expanded_data, treated_ids, ts_to_fetch, row_key, matched_sets, lag)
}

check_treated_units_for_treatment_reversion <- function(compmat, compmat_row_units, compmat_cols, lead, treated_ids, treated_ts) {
    .Call('_PanelMatch_check_treated_units_for_treatment_reversion', PACKAGE = 'PanelMatch', compmat, compmat_row_units, compmat_cols, lead, treated_ids, treated_ts)
}

check_control_units_for_treatment_restriction <- function(compmat, compmat_row_units, compmat_cols, lead, sets, control_start_years) {
    .Call('_PanelMatch_check_control_units_for_treatment_restriction', PACKAGE = 'PanelMatch', compmat, compmat_row_units, compmat_cols, lead, sets, control_start_years)
}

multiply_weights_msm <- function(weights, number_of_sets) {
    .Call('_PanelMatch_multiply_weights_msm', PACKAGE = 'PanelMatch', weights, number_of_sets)
}

do_exact_matching_refinement <- function(balanced_data, lag, row_key, control_data, treatment_data, exact_match_variable_column_index) {
    .Call('_PanelMatch_do_exact_matching_refinement', PACKAGE = 'PanelMatch', balanced_data, lag, row_key, control_data, treatment_data, exact_match_variable_column_index)
}

check_missing_data_treated_units <- function(subset_data, sets, tid_pairs, treated_tid_pairs, treated_ids, lead) {
    .Call('_PanelMatch_check_missing_data_treated_units', PACKAGE = 'PanelMatch', subset_data, sets, tid_pairs, treated_tid_pairs, treated_ids, lead)
}

check_missing_data_control_units <- function(subset_data, sets, prepared_sets, tid_pairs, lead) {
    .Call('_PanelMatch_check_missing_data_control_units', PACKAGE = 'PanelMatch', subset_data, sets, prepared_sets, tid_pairs, lead)
}
insongkim/PanelMatch documentation built on June 10, 2022, 8 p.m.