R/perturbations.R

In denisagniel/synthate: Synthetic Causal Inference

perturb <- function(this_data, nptb = 500, match_names, ate_fns) {

}

perturb_one <- function(this_data, w,  ate_fns, ...) {
  this_data <- estimate_scores(this_data, outcome_fm = outcome_fm,
                               ps_fm = ps_fm,
                               ps_fam = ps_fam,
                               outcome_fam = outcome_fam)
  thetahat <- estimate_ates(this_data,
                            ate_list,
                            cov_ids = cov_ids,
                            outcome_fm = stringr::str_c('d + ', outcome_fm),
                            outcome_fam = outcome_fam)

}